Произведение матрицы на вектор

unit Matr;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    lblTema: TLabel;
    lblMatr: TLabel;
    strngrdMatr1: TStringGrid;
    lblResult: TLabel;
    strngrdMatr2: TStringGrid;
    btnDecide: TButton;
    btnClear: TButton;
    btnExit: TButton;
    strngrdVector: TStringGrid;
    lbl1: TLabel;
    btn1: TButton;
    edtVvod1: TEdit;
    edtVVod2: TEdit;
    btn2: TButton;
    edt1: TEdit;
 
    procedure FormActivate(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
var
   i,j : Integer;
begin
 for i:=1 to strngrdMatr1.RowCount do
   strngrdMatr1.Cells[0,i]:=IntToStr(i);
 for j:=1 to strngrdMatr1.ColCount do
   strngrdMatr1.Cells[j,0]:=IntToStr(j);
 for i:=1 to strngrdMatr2.RowCount do
   strngrdMatr2.Cells[0,i]:=IntToStr(i);
 for j:=1 to strngrdMatr2.ColCount do
   strngrdMatr2.Cells[j,0]:=IntToStr(j);
end;
 
procedure TForm1.btnExitClick(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.btnClearClick(Sender: TObject);
var
 k,l,i,j:Integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
strngrdMatr1.Cells[i,j]:='';
strngrdMatr2.Cells[i,j]:='';
end;
begin
  for k:=1 to 4 do
  for l:=1 to 4 do
  begin
  strngrdVector.Cells[0,l]:='';
  end;
end;
begin
  edtVvod1.Text:='';
  edtVVod2.Text:='';
end;
begin
  edt1.Text:='';
end;
 end;
procedure TForm1.btn1Click(Sender: TObject);
var
  i,j:Integer;
begin
strngrdMatr1.ColCount:=StrToInt(edtVvod1.Text)+1;
strngrdMatr1.RowCount:=StrToInt(edtVvod2.Text)+1;
strngrdMatr2.ColCount:=StrToInt(edtVvod1.Text)+1;
strngrdMatr2.RowCount:=StrToInt(edtVvod2.Text)+1;
begin
 for i:=1 to strngrdMatr1.RowCount do
   strngrdMatr1.Cells[0,i]:=IntToStr(i);
 for j:=1 to strngrdMatr1.ColCount do
   strngrdMatr1.Cells[j,0]:=IntToStr(j);
 for i:=1 to strngrdMatr2.RowCount do
   strngrdMatr2.Cells[0,i]:=IntToStr(i);
 for j:=1 to strngrdMatr2.ColCount do
   strngrdMatr2.Cells[j,0]:=IntToStr(j);
     end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var
 i,j,k:Integer;
begin
strngrdVector.RowCount:=StrToInt(edt1.Text)+1;
begin
  for k:=1 to strngrdVector.RowCount do
   strngrdVector.Cells[k,0]:=IntToStr(k);
end;
begin
  if strngrdVector.RowCount<>strngrdMatr1.RowCount then
  MessageDlg('Ошибка!', mtError,[mbCancel], 0);
end;
 end;
 
end.

type vec=array of integer;
     mtr=array of array of integer;
 
procedure mult(x:mtr;y:vec;var z:vec;m,n:integer);
var i,j:integer;
begin
for i:=0 to m-1 do
 begin
  z[i]:=0;
  for j:=0 to n-1 do
  z[i]:=z[i]+x[i,j]*y[j];
 end;
end;
 
var a:mtr;
    b,c:vec;
    m,n:integer;
//зададим параметры таблиц
procedure TForm1.FormCreate(Sender: TObject);
begin
with stringgrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  colcount:=1;
  rowcount:=1;
  defaultcolwidth:=30;
 end;
with stringgrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  colcount:=1;
  rowcount:=1;
  defaultcolwidth:=30;
 end;
with stringgrid3 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  colcount:=1;
  rowcount:=1;
  defaultcolwidth:=30;
 end;
end;
//создание матрицы и вектора
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
val(Edit1.Text,m,i);
if(i<>0)or not(m in [2..10])then
 begin
  ShowMessage('Не верно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,n,i);
if(i<>0)or not(n in [2..10])then
 begin
  ShowMessage('Не верно введено количество столбцов');
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
Setlength(a,m,n);
Setlength(b,n);
Setlength(c,n);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid3.RowCount:=m;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=random(10);
  stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
  b[j]:=random(10);
  stringgrid2.Cells[0,j]:=inttostr(b[j]);
 end;
end;
//умножение матрицы на вектор
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
mult(a,b,c,m,n);
for i:=0 to m-1 do
stringgrid3.Cells[0,i]:=inttostr(c[i]);
end;

finalize(a);
finalize(b);
finalize(c);
end;
end.