Сортировка диагоналей матрицы

[skiffter]

Не подскажете как можно отсортировать главную и побочную диагональ матрицы в Delphi по возрастанию очень надо ?

[Alex Cones]

Как обычно сортируют одномерный массив? Так же и диагонали, только номер элемента задается так: A[N,N] для главной диагонали и простой формулой для побочной.

[skiffter]

Не подскажешь код прогр для создания сортировки побочной диагонали по возрастанию?

[Alex Cones]

Я тебе формулу ячейки скажу:
For n:=1 to MATRIXSIZE do
A[N,MATRIXSIZE-N+1]:=...

[skiffter]

Спасибо попробую что нибудь сделать хотя если честно я не очень понял)), но все равно попробую .

[Alex Cones]

я не очень понял))

Что такое диагональ? Это ряд ячеек, которые задаются одной из формул: A[N,N] или A[N,MS-N+1] создавай цикл от 1 до MS и сортируй ячейки, взятые по формулам выше.

[skiffter]

Я вот так сделал но у меня почему то побочная диагональ идет по убыванию ((
begin
for ab:=1 to 5 do
begin
for j:=1 to 5 do
for i:=j+1 to 6 do
if a[j,j]>a[i,i] then
begin
bb:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=bb;
end;
end;
for ab1:=1 to 6 do
begin
for j:=1 to 5 do
for i:=j+1 to 6 do
if a[6-j+1,j]>a[6-i+1,i] then begin
bb3:=a[6-i+1,i];
a[6-i+1,i]:=a[6-j+1,j];
a[6-j+1,j]:=bb3;
end;end;

[Alex Cones]

В коде не разбирался, но попробуй поменять > на <

[skiffter]

Получилось )) Блин спасибо тебе огромное!!! целый вечер парюсь щас только получилось Спасибо !!!