Процедура сортировки массива из двух элементов

@datafile4 · Регистрация: 26.02.2013

Author24 — интернет-сервис помощи студентам

Не получается, выдает ошибку

@Puporev · 11.11.2013, 16:09

Сообщение от datafile4

Не получается, выдает ошибку

Покажи код.

@datafile4 · 11.11.2013, 16:11 **[ТС]**

Pascal

procedure sort(a:array of integer;var r:array of integer);
var
   i:byte;
   t:integer;
begin
  if a[1]> a[2] then 
begin
  t:=a[1];
  a[1]:=a[2];
  a[2]:=t;
end;
for i:=1 to 2 do
r[i]:=a[i];
end;

@APALoff · 11.11.2013, 16:11

Pascal

If M[1]<M[2] then
Begin
  M[2]:=M[2]+M[1];
  M[1]:=M[2]-M[1];
  M[2]:=M[2]-M[1];
End;

@datafile4 · 11.11.2013, 16:12 **[ТС]**

На шаге if a[1]> a[2] выдает ошибку проверки диапозона

@Puporev · 11.11.2013, 16:14

Pascal

type mas=array[1..2] of integer;
procedure sort(var a:mas);
var
   i:byte;
   t:integer;
begin
if a[1]> a[2] then
 begin
  t:=a[1];
  a[1]:=a[2];
  a[2]:=t;
end;
end;

@APALoff · 11.11.2013, 16:15

Сообщение от datafile4

На шаге if a[1]> a[2] выдает ошибку проверки диапозона

А если попробовать описать массивы как a : Array[1..2] of Integer; ?

@datafile4 · 11.11.2013, 16:17 **[ТС]**

Сообщение от APALoff

А если попробовать описать массивы как a : Array[1..2] of Integer; ?

Так не описывают. Проверьте сами.

@Puporev · 11.11.2013, 16:18

Написал же я как нужно в Турбо Паскале, чего еще гадать.

@APALoff · 11.11.2013, 16:18

Сообщение от datafile4

Так не описывают. Проверьте сами.

Зрастиприехали...
Посмотри пост выше моего - там Puporev именно так и описал.

@datafile4 · 11.11.2013, 16:22 **[ТС]**

Зрастиприехали...
Посмотри пост выше моего - там Puporev именно так и описал.

Puporev описал массив как тип.( Что , кстати, сработало, спасибо). Я описывал, как вы сказали, не получается.

@APALoff · 11.11.2013, 16:44

Сообщение от datafile4

Puporev описал массив как тип.( Что , кстати, сработало, спасибо). Я описывал, как вы сказали, не получается.

Я не приводил полный код, а только идею. Конечно описание типов и переменных различаются синтаксически, но смысл остается в правилах описания, т.е. диапазоном на 2 элемента, а не на все множество integer.
Мой вариант тоже сработал бы, если описать массив в основном теле, а в процедуре обращаться к нему как глобальным переменным.

@datafile4 · 11.11.2013, 16:47 **[ТС]**

Я не приводил полный код, а только идею. Конечно описание типов и переменных различаются синтаксически, но смысл остается в правилах описания, т.е. диапазоном на 2 элемента, а не на все множество integer.
Мой вариант тоже сработал бы, если описать массив в основном теле, а в процедуре обращаться к нему как глобальным переменным.

Я сначала так и сделал. Не сработало. Почему, не могу понять, но ни в Турбо, ни во Фри не работало.

@APALoff · 11.11.2013, 16:49

Сообщение от datafile4

Я сначала так и сделал. Не сработало. Почему, не могу понять, но ни в Турбо, ни во Фри не работало.

Примерно так.

Pascal

Var  a,r : Array[1..2] of Integer;
 
procedure sort;
var
   i:byte;
   t:integer;
begin
  if a[1]> a[2] then 
begin
  t:=a[1];
  a[1]:=a[2];
  a[2]:=t;
end;
for i:=1 to 2 do
r[i]:=a[i];
end;
 
Begin
{...}
End.

@datafile4 · 11.11.2013, 16:51 **[ТС]**

Я сделал точно так-же. Не работало. Выдавало ошибку.

@Fakeoke · 11.11.2013, 16:58

вы в процедуру передавали массив..
без типа так делать нельзя

@APALoff · 11.11.2013, 17:00

Сообщение от datafile4

Я сделал точно так-же. Не работало. Выдавало ошибку.

Видимо не точно так же.
Может как раз потому что:

вы в процедуру передавали массив..
без типа так делать нельзя

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.11.2013, 16:18	10
	Сообщение от datafile4 Так не описывают. Проверьте сами. Зрастиприехали... Посмотри пост выше моего - там Puporev именно так и описал. 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
		1
	Процедура сортировки массива из двух элементов 11.11.2013, 15:58. Показов 837. Ответов 16 Метки нет (Все метки) Не получается, выдает ошибку 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.11.2013, 16:09	2
	Сообщение от datafile4 Не получается, выдает ошибку Покажи код. 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
	11.11.2013, 16:12 [ТС]	5
	На шаге if a[1]> a[2] выдает ошибку проверки диапозона 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.11.2013, 16:15	7
	Сообщение от datafile4 На шаге if a[1]> a[2] выдает ошибку проверки диапозона А если попробовать описать массивы как a : Array[1..2] of Integer; ? 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
	11.11.2013, 16:17 [ТС]	8
	Сообщение от APALoff А если попробовать описать массивы как a : Array[1..2] of Integer; ? Так не описывают. Проверьте сами. 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
	11.11.2013, 16:22 [ТС]	11
	Зрастиприехали... Посмотри пост выше моего - там Puporev именно так и описал. Puporev описал массив как тип.( Что , кстати, сработало, спасибо). Я описывал, как вы сказали, не получается. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.11.2013, 16:44	12
	Сообщение от datafile4 Puporev описал массив как тип.( Что , кстати, сработало, спасибо). Я описывал, как вы сказали, не получается. Я не приводил полный код, а только идею. Конечно описание типов и переменных различаются синтаксически, но смысл остается в правилах описания, т.е. диапазоном на 2 элемента, а не на все множество integer. Мой вариант тоже сработал бы, если описать массив в основном теле, а в процедуре обращаться к нему как глобальным переменным. 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
	11.11.2013, 16:47 [ТС]	13
	Я не приводил полный код, а только идею. Конечно описание типов и переменных различаются синтаксически, но смысл остается в правилах описания, т.е. диапазоном на 2 элемента, а не на все множество integer. Мой вариант тоже сработал бы, если описать массив в основном теле, а в процедуре обращаться к нему как глобальным переменным. Я сначала так и сделал. Не сработало. Почему, не могу понять, но ни в Турбо, ни во Фри не работало. 0

@datafile4 35 / 35 / 3 Регистрация: 26.02.2013 Сообщений: 176
	11.11.2013, 16:51 [ТС]	15
	Я сделал точно так-же. Не работало. Выдавало ошибку. 0

@Fakeoke 522 / 398 / 213 Регистрация: 28.07.2011 Сообщений: 2,212
	11.11.2013, 16:58	16
	вы в процедуру передавали массив.. без типа так делать нельзя 0

	11.11.2013, 17:00

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.11.2013, 17:00	17
	Сообщение от datafile4 Я сделал точно так-же. Не работало. Выдавало ошибку. Видимо не точно так же. Может как раз потому что: вы в процедуру передавали массив.. без типа так делать нельзя 0