Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сортировка в массиве

Автор: Gl00M 8.10.2006 20:34

Дано было мне задание: отсортировать массив по возрастанию первого столбца...
вот я отсортировал первый столбец...

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 8.10.2006 20:43

Рассматривай матрицу, как массив векторов, и будет тебе счастье:

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;


Это, кстати, написано здесь:
http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100