Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка в массиве
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Gl00M
Дано было мне задание: отсортировать массив по возрастанию первого столбца...
вот я отсортировал первый столбец...
uses Crt;
const n=5;
m=3;
var a,b,c:array[1..n,1..m] of integer;
i,j:word;
min,buf,k,t:integer;
Begin
randomize;
ClrScr;
For i:=1 to n do begin
 For j:=1 to m do begin
  a[i,j]:=50-random(100);
  write(a[i,j]:4);
  b[i,j]:=a[i,j];
 end;
 writeln;
end;

for i:=1 to n do begin
 min:=i;
 for k:=i+1 to n do if b[k,1]<b[min,1] then min:=k;
 buf:=b[i,1];
 b[i,1]:=b[min,1];
 b[min,1]:=buf;
end;

writeln;

For i:=1 to n do begin
 For j:=1 to m do begin
  write(b[i,j]:4);
 end;
 writeln;
end;
readln;
End. 
.
Но это оказалось не совсем правильно... надо, чтобы еще и элементы строки "тянулись" за отсортировочнм элем-ом...
как? smile.gif
volvo
Рассматривай матрицу, как массив векторов, и будет тебе счастье:
const
  n = 5;
  m = 3;
type
  TVector = array[1 .. m] of integer;
  TMatrix = array[1 .. n] of TVector;

var
  buf: TVector;

...
{ Собственно, сортировка: }
for i:=1 to n do begin
  min:=i;
  for k:=i+1 to n do if b[k,1]<b[min,1] then min:=k;

  { Меняешь не один элемент, а всю строку... }
  buf:=b[i]; b[i]:=b[min]; b[min]:=buf;

end;


Это, кстати, написано здесь:
FAQ: Как задать матрицу, чтобы быстро поменять местами ее строки
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.