Form2.StringGrid1.Cells[i,0]:= IntToStr(i);
For j:=1 to Form2.StringGrid1.ColCount do
Form2.StringGrid1.Cells[0,j]:= IntToStr(j);
{вывод в компонент StringGrid на второй форме транспонированной матрицы}
{Транспонированная матрица не создается. Транспонирование осуществляется путем вывода столбца исходной матрицы в строку компонента
StringGrid. В StringGrid номер столбца i, номер строки j.} For i:=1 to Form2.StringGrid1.ColCount-1 do
For j:=1 to Form2.StringGrid1.RowCount-1 do Form2.StringGrid1.Cells[i,j]:=FloatToStr(M[i,j]);
end;
{Процедура подготовки таблицы на форме для ввода квадратной матрицы, которая выполняется при выходе из поля ввода размерности матрицы.}
procedure TForm1.Edit1Exit(Sender: TObject);
Var i,j:Integer;//номера строки столбца квадратной матрицы begin
// порядок матрицы получает свое значение из поля ввода
N:=StrToInt(Edit1.Text);
//свойство количество строк компонента StringGrid
//получает значение: порядок +1
StringGrid1.RowCount:=N+1;
//свойство количество столбцов компонента StringGrid
//получает значение порядок: +1 StringGrid1.ColCount:=N+1; //подпись заголовка таблицы
For i:=1 to StringGrid1.RowCount do StringGrid1.Cells[i,0]:= IntToStr(i); //подпись строк таблицы
For j:=1 to StringGrid1.ColCount do StringGrid1.Cells[0,j]:= IntToStr(j);
//добавление в свойства таблицы признака
//допустимости редактирования содержимого ячеек таблицы
StringGrid1.Options:= StringGrid1.Options +[goEditing]; end;
procedure TForm1.Button3Click(Sender: TObject); begin
Form1.Close
end;
//процедура вычисляет след матрицы и выводит результат
//на третью форму
procedure TForm1.Button2Click(Sender: TObject);
Var i: Integer;
