Матрицы в Lazarus
здравствуйте, подскажите пожалуйста как вывести отсортированную матрицу в StringGrid2 : Дан двумерный массив А, размером (nхn).упорядочить по возрастанию элементы побочной диагонали матрицы А
procedure TForm1.Button2Click(Sender: TObject); var k,i,j,х:integer; begin for i:=1 to n do for j:=1 to n do begin a[i,j]:=StrToInt(StringGrid1.Cells[j,i]); end; for i:=1 to n-1 do for j:=i+1 to n do if a[i,n-i+1]>a[j,n-j+1] then begin x: =a[i,n-i+1]; a[i,n-i+1]:=a[j,n-j+1]; a[j,n-j+1]:=x; end; заранее спасибо) |
Вот так попробуйте.
Код:
for i:=1 to n do |
Часовой пояс GMT +4, время: 00:00. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.