type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:array of array of integer;
i,j,n,m,n1,m1,n2,m2:integer;
begin
n:=strtoint(edit1.Text);{количество строк}
m:=strtoint(edit2.Text);{количество столбцов}
n1:=strtoint(edit3.Text);{количество строк 2 матрицы}
m1:=strtoint(edit4.Text);{количество столбцов 2 матрицы}
setlength(a,n,m);
setlength(b,n1,m1);
if n<=n1 then n2:=n1 else n2:=n;
if m<=m1 then m2:=m1 else m2:=m;
setlength(c,n2,m2);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=strtoint(stringgrid1.Cells[j,i]);
for i:=0 to n1-1 do
for j:=0 to m1-1 do
b[i,j]:=strtoint(stringgrid2.Cells[j,i]);
//for j:=0 to m2-1 do
//for i:=0 to n2-1 do
//for y:=0 to
//c[i,j]=a[i,0]*
c[0,0]:=a[0,0]*b[0,0]+a[0,1]*b[1,0];
c[1,0]:=a[1,0]*b[0,0]+a[1,1]*b[1,0];
c[2,0]:=a[2,0]*b[0,0]+a[2,1]*b[1,0];
c[0,1]:=a[0,0]*b[0,1]+a[0,1]*b[1,1];
c[1,1]:=a[1,0]*b[0,1]+a[1,1]*b[1,1];
c[2,1]:=a[2,0]*b[0,1]+a[2,1]*b[1,1];
stringgrid3.Cells[0,0]:=inttostr(c[0,0]);
stringgrid3.Cells[0,1]:=inttostr(c[1,0]);
stringgrid3.Cells[0,2]:=inttostr(c[2,0]);
end;
end.