29.09.2013, 21:03 | #1 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Матрицы в Lazarus
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; заранее спасибо) |
29.09.2013, 21:03 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблема должна решиться быстрее, если ознакомиться с подобными темами Строки в Lazarus Помогите сделать задачи с кнопками в Lazarus Матрицы С++ Матрицы в С++ Создать приложение "Lazarus" |
30.09.2013, 17:30 | #2 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Вот так попробуйте.
Код:
for i:=1 to n do for j:=1 to n do begin StringGrid2.Cells[j,i]:=IntToStr(a[i,j]); end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|