вот код этого участка: (кидаю код только отдельной кнопки, так как код очень большой)
Код: Выделить всё
procedure TForm2.Button3Click(Sender: TObject);
var
k,i,j:integer;
temp:string;
begin
Form3.Memo1.Clear;
for i:=1 to rowcount do
for j:=1 to colcount do
begin
s[i,j]:=0;
for k:=1 to colcount do
begin
s[i,j] := s[i,j] + r[i,k]*q[k,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;