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

[tutejshy]

Подскажите можно ли создать процедуру, которая бы сортировала указанный массив? Типа пишешь имя этой процедуры, а в скобках имя массива, который нужно отсортировать и она сортирует указанный массив. Потом пишешь опять название процедуры, а в скобках название другого массива и она сортирует уже другой массив. Можно ли создать нечто подобное?

[Аватар]

Можно, для определенного типа массива

[Alex11223]

Не обязательно определенного если современный Free Pascal или Дельфи 2009+ (Generics).

[tutejshy]

Ну вот у меня два массива [1..9,1..9] of integer, процедура сортировки массива методом пузырька - как записать вот эту процедуру, чтобы она сортировала именно тот массив, который указан(при этом в самой процедуре не должны быть указаны наименования этих двух массивов)?

[newerow1989]

Образец:

type tArri=array of integer;

procedure Sort(var p:tArri);
var i,z:integer;
    d:boolean;
begin
   Repeat
      d:=true;
      For i:=Low(p) to High(p)-1 do
         If p[i]>p[i+1] then
         begin
            z:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=z;
            d:=false;
         end;
   Until d;
end;

var p1,p2:tArri;
    i,len:integer;
begin
   Randomize;
   len:=5+Random(10);
   SetLength(p1,len);
   For i:=0 to len-1 do
      p1[i]:=Random(21);
   len:=5+Random(10);
   SetLength(p2,len);
   For i:=0 to len-1 do
      p2[i]:=Random(21);
   For i:=Low(p1) to High(p1) do
      Write(p1[i]:2,'  ');
   Writeln;
   Sort(p1);
   For i:=Low(p1) to High(p1) do
      Write(p1[i]:2,'  ');
   Writeln;
   Writeln;
   For i:=Low(p2) to High(p2) do
      Write(p2[i]:2,'  ');
   Writeln;
   Sort(p2);
   For i:=Low(p2) to High(p2) do
      Write(p2[i]:2,'  ');
   Writeln;
   Writeln;
   Readln;
end.

[Alex11223]

Это двумерный массив, а не два массива.

[tutejshy]

два массива по [1..9,1..9] - неужели это не понятно?

[tutejshy]

Ага,понял: надо установить тип данных. Спс.

[tutejshy]

Кстати, Неверов, а эта прога будет работать с двумерными массивами?

[Alex11223]

Нет конечно, разве не видно что там одномерный?
Но передача в процедуру, о которой и был вопрос, останется такой же (ну только заменить на двумерный).

Для сортировки двумерного массива сначала надо определиться что значит "отсортировать двумерный массив". Там ж разные варианты порядка возможны.