[Alegun]

Сообщение от Andrea1111111

...Необходимо написать код для кнопки умножения матрицы на вектор, не используя array! Матрица-stringgrid1, Вектор-stringgrid2, Результат-stringgrid3.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,p,n,m,l: integer;
 s: real;
begin
 m:= StringGrid1.ColCount;
 StringGrid2.RowCount:= m;
 n:= StringGrid1.RowCount;
 StringGrid3.RowCount:= n;
 l:= StringGrid2.ColCount;
 StringGrid3.ColCount:= l;

 for i := 0 to n do
  for j := 0 to l do
   begin
    s:= 0;

    for p := 0 to m do
     s:= s + StrToFloat(StringGrid1.Cells[i,p]) *
              StrToFloat(StringGrid2.Cells[p,j]);

    StringGrid3.Cells[j, i]:= FloatTostr(s);
   end;
end;