Сортировка матрицы по строкам, как? Опции

[MyNameIs]

Как отсортировать матрицу по строкам? Матрица квадратная n=5;

 procedure Upor(k:integer;D:mat;var D1:mat);
 var i,j:integer;
     j1:real;
begin
 for i:=1 to k do
  for j:= 1 to k do
  If  D[i,j]>D[i,j+1] then
  begin

 j1:= D[i,j];
 D[i,j]:=D[i,j+1];
 D[i,j+1]:=j1;
 end;

for i:=1 to k do
  for j:= 1 to k do
  D1[i,j]:=D[i,j];


 end;

Сообщение отредактировано: MyNameIs - 16.12.2006 21:39

[arhimag]

Ну если я правильно понимаю, то сначала к каждой строке применить пузырек он упорядочит элементы в строках матрицы, а затем применить к первому столбцу, потом ко второму, к множеству тех мест, где первые элементы равны, ну и так далее