![]() |
|
#1
|
|||
|
|||
![]() надо прочитать матрицу NxN целых чисел. Идея есть, но она не работает
Код:
procedure TForm1.Button1Click(Sender: TObject); var nproc,i,j:0..n; a:matr; begin nproc:=upDown1.Position; while nproc>=n do button1.Caption:='N должно быть меньше 100'; nproc:=nproc-1; with stringgrid1 do begin stringgrid1.ColCount:=updown1.Position-1; stringgrid1.RowCount:=stringgrid1.ColCount-1; for i:=0 to nproc do for j:=0 to nproc do a[i,j]:=strToInt(cells[j,i]); end Moderatorial: Пользуемся тегами!!! Последний раз редактировалось Admin, 10.12.2008 в 16:00. |