Как перемножить две матрицы?

Категория: Delphi/Pascal
2011-08-28 20:48:09
code: #delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  var a,b,c:array[1..10,1..25]of integer;
  3.  i,z:integer; s:string;
  4.  begin
  5.   randomize;
  6.   for i:=1 to 10 do begin
  7.   for z:=1 to 25 do
  8.   a[i,z]:=random(50);
  9.   b[i,z]:=random(50);
  10.  end;
  11.   for i:=1 to 10 do begin
  12.   for z:=1 to 25 do
  13.   c[i,z]:=a[i,z]*b[i,z];
  14.  end;
  15.   for i:=1 to 10 do begin memo1.Lines.Add(s);s:=' ';
  16.   for z:=1 to 25 do
  17.   s:=s+inttostr(c[i,z])+' ';
  18.  end;
  19.  end;
  20.  end.
Поделиться:

Похожие статьи:

теги: студенты, массив, двумерный массив, консольное приложение, матрица