матрица

[alerzo]

помогите решить задачу...программа не выводит результат в стрин грид.
задача:составить программу для вычисления компонент вектора d={d1,d2,d3...dn} равного произведению матрицы А={aij} на вектор b={b1,b2,b3..bn} каждая компонента вектора вычисляется по формуле di=m(над сигмой)(сигма)к=1(под сигмой)*(aik*bk) i=1...n (n<=9 m<=9)
то есть программа перемножает каждый элемент строки матрицы А на элемент B и складывает друг с другом.
код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
mas1: TStringGrid;
mas3: TStringGrid;
mas2: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.button1Click(Sender: TObject);
var
a:array [1..8,1..9] of real;
b,d:array [1..9] of real;
i,j,N,M:Integer;
begin
N:=strtoint(edit1.text);
M:=strtoint(edit2.text);
for i:=1 to N do
for j:=1 to M do
a[i,j]:=strtofloat(mas1.Cells[j-1,i-1]);
for i:=1 to N do
b[i]:=strtofloat(mas1.Cells[i-1,0]);
d[i]:=0;
d[i]:=d[i]+a[i,j]*b[i];
mas3.Cells[0, i]:=FloatToStr(d[i]);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>' ' then
mas1.rowcount:=strtoint(Edit1.Text) ;
mas2.rowcount:=strtoint(Edit1.Text) ;
mas3.rowcount:=strtoint(Edit1.Text) ;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.text<>' ' then
mas1.colcount:=strtoint(Edit2.Text) ;
end;

end.

[.Phoenix]

Не удается найти unit1.pas
Не удается найти Unit1.dcu
Заново загрузи файлы.

[Serge_Bliznykov]

всё там есть
в проект просто надо указать Unit1 лежащий в папке с проектом (или отредактировать строчку
Unit1 in '..\Новая папка\Unit1.pas' {Form1};
в Project1.dpr)

[Anatole]

alerzo Если вам сложно найти на форуме реализацию алгоритма умножения матриц, то где-то так:

for i:=1 to m do 
b[i]:=strtofloat(mas1.Cells[i-1,0]);
For i := 1 to n do begin
d[i]:=0;
For j:=1 to m do
d[i]:=d[i]+a[i,j]*b[j];
mas3.Cells[0, i]:=FloatToStr(d[i]);
end;