Курсовая работа: Разработка приложения для Windows, представляющего собой выполнение операции над матрицами

n:=strtoint (edit1. Text); // количество строк или столбцов

stringgrid1. Visible:=true; // видимость

n:=n-1;

// настройка размера StringGrid

StringGrid1. Height:=StringGrid1. DefaultRowHeight* (strtoint (edit1.text)+1);

StringGrid1. Width:=StringGrid1. DefaultColWidth* (strtoint (edit1.text)+1);

StringGrid1. ColCount:=strtoint (edit1.text);

StringGrid1. RowCount:=strtoint (edit1.text);

for i:=0 to n do

for j:=0 to n do

begin

x [i, j]:=random(1)+1; // контрольная матрица

end;

for i:=0 to n do

for j:=0 to n do

begin

stringgrid1. Cells [j, i]:=inttostr (x[i, j]);

end;

end;

procedure TForm1.N1Click (Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N2Click (Sender: TObject);

begin

close;

end;

end.

// код для 2 – формы