Сортировка в массиве n*n (Диагональ матрицы)

@Gelo · Регистрация: 30.04.2009

Author24 — интернет-сервис помощи студентам

Путем перестановки элементов квадратной вещественной матрицы добиться того, чтобы ее максимальный элемент находился в левом верхнем углу, следующий по величине – в позиции (2,2) , следующий по величине – в позиции (3,3), …, заполнив таким образом всю главную диагональ.
Вот что у меня в процедуре сортировки:

Delphi

procedure diagonal;
var b,f,z,ib,jb:integer;
begin
setlength(di,n);
f:=0;
jb:=0;
ib:=0;
while f<n do
begin
b:=a[f,0];
   for j:=0 to high(a) do
   begin
   for i:=0 to high(a) do begin
      if a[i,j]>b then if i=j  then break
      else  begin
        b:=a[i,j];
        ib:=i; jb:=j;
           end;
   end;  end;
a[ib,jb]:=a[f,f];
a[f,f]:=b;
inc(f);
end;
end;

Это уже не первый способ, ниодин не работает корректно.

@sVoy · 25.05.2009, 21:38

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

@sVoy 15 / 15 / 0 Регистрация: 18.05.2009 Сообщений: 52
	25.05.2009, 21:38	2
	ээээ..... я плохо понял код ..... попробуй переписать все элементы диагонали в новый масив, там его сформировать, а потом его заменить на главную диаганаль.... вродибо должно получится 0