Задача. Создать программу, которая предоставляет пользователю возможность ввести элементы матрицы, а затем вывести ее, заменив строки на столбцы (транспонировать).
Свойства компонента StringGrid
| Свойство
| StringGrid1
| StringGrid2
| Описание
|
| Height
|
|
| Высота табл.
|
| Width
|
|
| Ширина табл.
|
| ColCount
|
|
| Кол-во столб.
|
| RowCount
|
|
| Кол-во строк
|
| DefaultColWidth
|
|
| Ширина столб.
|
| DefaultRowHeight
|
|
| Высота строки
|
| Options.
goEditinf
| true
| false
| Возможность редактирования таблицы
|
procedure TForm1.BitBtn1Click(Sender: TObject);
const n=4;m=4;
var i,j:byte;
A:array [1..n,1..m] of integer;
Begin
for i:=1 to n do
for j:=1 to m do
A[i,j]:=StrToInt(
StringGrid1.Cells[i,j]);
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[i,j]:=
IntToStr(A[j,i]);
end;
