Алгоритм умножения двух матриц

На форме должны располагаться три таблицы. Первая для ввода матрицы А (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;

Не нашли, что искали? Воспользуйтесь поиском: