Код программы.
procedure TForm1.Button1Click(Sender: TObject);
const m=5;
n=3;
l=4;
a:array[1..m,1..n] of integer=((2,1,3),(4,0,1),(-1,2,1),(2,0,-1),(0,4,-2));
b:array[1..n,1..l] of integer=((2,0,1,1),(3,1,0,-1),(2,2,0,-4));
var c:array[1..m,1..l] of integer;
i,j,k,p:integer;
begin
for i:=1 to m do
for j:=1 to n do
for p:=1 to l do
begin
StringGrid1.Cells[j,i]:=InttoStr(a[i,j]);
StringGrid2.Cells[p,j]:=InttoStr(b[j,p]);
end;
for i:=1 to m do
for j:=1 to l do
begin
c[i,j]:=0;
for k:=1 to n do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
StringGrid3.Cells[j,i]:=InttoStr(c[i,j]);
end;
end;
const m=5;
n=3;
l=4;
a:array[1..m,1..n] of integer=((2,1,3),(4,0,1),(-1,2,1),(2,0,-1),(0,4,-2));
b:array[1..n,1..l] of integer=((2,0,1,1),(3,1,0,-1),(2,2,0,-4));
var c:array[1..m,1..l] of integer;
i,j,k,p:integer;
begin
for i:=1 to m do
for j:=1 to n do
for p:=1 to l do
begin
StringGrid1.Cells[j,i]:=InttoStr(a[i,j]);
StringGrid2.Cells[p,j]:=InttoStr(b[j,p]);
end;
for i:=1 to m do
for j:=1 to l do
begin
c[i,j]:=0;
for k:=1 to n do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
StringGrid3.Cells[j,i]:=InttoStr(c[i,j]);
end;
end;
Интерфейс.
Комментариев нет:
Отправить комментарий