Implementation

{$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.