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

Автор: MyNameIs 17.12.2006 1:39

Как отсортировать матрицу по строкам? Матрица квадратная 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;

Автор: arhimag 17.12.2006 1:50

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

Автор: Bokul 17.12.2006 1:51

+ почитай http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100

Автор: MyNameIs 17.12.2006 2:00

Там только пузырь есть. Можете код выложить для матрицы, срочно нужно.

Автор: MyNameIs 17.12.2006 17:54

Цитата(MyNameIs @ 16.12.2006 22:00)

Там только пузырь есть. Можете код выложить для матрицы, срочно нужно.

{CoptipoBka MatriX}
for i:=1 to k do
 for l:=1 to k-1 do
 for    r:=l+1 to k do
  if    D[i,l]>D[i,r]   then
   begin
    t:=D[i,l]; D[i,l]:=D[i,r]; D[i,r]:=t;
   end;