На форме должны располагаться три таблицы. Первая для ввода матрицы А(n,m), вторая для B(m,L) и третья матрица-результат С, размерностью n на L.
procedure TForm1.Button1Click(Sender: TObject);
type
matrica=array [1..15,1..15] of real;
var
A,B,C:matrica;
i,j,m,n,l,k:byte;
s:real;
begin
n:=4;m:=4;l:=4;
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
B[i,j]:=StrToInt(StringGrid2.
Cells[i,j]);
for i:=1 to n do
for j:=1 to l do
begin
S:=0;
for k:=1 to m do
s:=s+a[i,k]*b[k,j];
c[i,j]:=s;
end;
for i:=1 to n do
for j:=1 to m do
StringGrid3.Cells[i,j]:=
FloatToStrF(C[i,j],
ffFixed,4,1);
end;
|