{$R *.DFM}
Var
А:array[1..6,1..8] extended;// оголошення двовимірного масиву А
X:array[1..8] extended; // оголошення одновимірного масиву X
Y:array[1..6] extended; // оголошення одновимірного масиву Y
n,m,p,q:integer; // оголошення глобальних змінних
procedureTForm1.FormCreate(Sender: TObject);
Begin
SpinEdit1.Text:='4'; // початкове значення n
SpinEdit2.Text:='6'; // початкове значення m
SpinEdit3.Text:='2'; // початкове значення p
SpinEdit4.Text:='3'; // початкове значення q
StringGrid1.RowCount:=4; // кількість рядків масиву А
StringGrid1.ColCount:=6; // кількість стовпців масиву А
StringGrid2.RowCount:=6; // кількість рядків масиву X
StringGrid3.RowCount:=4; // кількість рядків масиву Y
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
Begin
n:=StrToInt(SpinEdit1.Text);// n привласнюється вміст поля редактора
StringGrid1.RowCount:=n; // встановлюється кількість рядків масиву А
StringGrid3.RowCount:=n; // встановлюється кількість рядків масиву Y
end;
procedure TForm1.SpinEdit2Change(Sender: TObject);
Begin
m:=StrToInt(SpinEdit2.Text);// m привласнюється вміст поля редактора
StringGrid1.ColCount:=m; // встановлюється кількість стовпців масиву А
StringGrid2.RowCount:=m; // встановлюється кількість рядків масиву X
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:integer; // оголошення локальних змінних
Begin
n:=StrToInt(SpinEdit1.Text);
StringGrid1.RowCount:=n;
StringGrid3.RowCount:=n;
m:=StrToInt(SpinEdit2.Text);
StringGrid1.ColCount:=m;
StringGrid2.RowCount:=m;
p:=StrToInt(SpinEdit3.Text);
q:=StrToInt(SpinEdit4.Text);
// Введення значень з таблиці в масив А
for i:=1 to n do
for j:=1 to m do
А[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
for j:=1 to m do // формування масиву X і виведення його значень в таблицю
Begin
X[j]:=A[p,j];
StringGrid2.Cells[0,j-1]:=FloatToStrF(X[j],ffFixed,3,1);
end;
for i:=1 to n do // формування масиву Y і виведення його значень в таблицю
Begin
Y[i]:=A[i,q];
StringGrid3.Cells[0,i-1]:=FloatToStrF(Y=[i],ffFixed,3,1);
end;
end;
End.