четверг, 23 декабря 2010 г.

Лабораторная работа №7.

Код программы.
procedure TForm1.Button1Click(Sender: TObject);
const m=5;
      n=3;
      l=4;
      a:array[1..m,1..n] of integer=((2,1,3),(4,0,1),(-1,2,1),(2,0,-1),(0,4,-2));
      b:array[1..n,1..l] of integer=((2,0,1,1),(3,1,0,-1),(2,2,0,-4));
var   c:array[1..m,1..l] of integer;
    i,j,k,p:integer;
begin
    for i:=1 to m do
    for j:=1 to n do
    for p:=1 to l do
    begin
    StringGrid1.Cells[j,i]:=InttoStr(a[i,j]);
    StringGrid2.Cells[p,j]:=InttoStr(b[j,p]);
    end;
    for i:=1 to m do
    for j:=1 to l do
    begin
    c[i,j]:=0;
    for k:=1 to n do
    c[i,j]:=c[i,j]+a[i,k]*b[k,j];
    StringGrid3.Cells[j,i]:=InttoStr(c[i,j]);
    end;
end; 

Интерфейс.

Комментариев нет:

Отправить комментарий