здравствуйте, вводятся 2 матрицы в memo1 и memo2. Размерность задается с помощью SpinEdit. Мне нужно перемножить 2 матрицы одинаковой размерности, вообщем я ввожу матрицы в мемо1 и мемо 2 но результат выходит нулевая матрица.
вот код этого участка:
| Код |
procedure TForm2.Button3Click(Sender: TObject);
var
i,j:integer;
temp:string;
begin
Form3.Memo1.Clear;
for i:=1 to rowcount do
begin
temp:= ' ';
for j:=1 to colcount do
begin
s[i,j]:=s[i,j]+r[i,j]*q[i,j];
temp:=temp+floattostr(s[i,j])+ ' ';
end;
Form3.Label1.Visible:=true;
Form3.Label1.Caption:='A*B';
form3.Show;
Form3.Memo1.Lines.Add(temp);
temp:= ' ';
end;
|
P.s. проект приложил |
)