home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t11.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  755 b   |  39 lines
  1. program t11;
  2. const m=4; p=3; n=2;
  3. var i:1..m;
  4.     j:1..n;
  5.     k:1..p;
  6.     s:integer;
  7.     a:array[1..m,1..p] of integer;
  8.     b:array[1..p,1..n] of integer;
  9.     c:array[1..m,1..n] of integer;
  10.  
  11. begin
  12.   writeln('Matrix-Multiplikation');
  13.   writeln('Matrix zeilenweise eingeben.');
  14.   for i:=1 to m do begin
  15.     for k:=1 to p do begin
  16.       read(s);a[i,k]:=s;
  17.     end;
  18.     writeln;
  19.   end;
  20.     for k:=1 to p do begin
  21.       for j:=1 to n do begin
  22.         read(s);b[k,j]:=s;
  23.       end;
  24.       writeln
  25.     end;
  26.     writeln;
  27.     for i:=1 to m do begin
  28.       for j:=1 to n do begin
  29.         s:=0;
  30.         for k:=1 to p do s:=s+a[i,k]*b[k,j];
  31.         c[i,j]:=s;
  32.         write(s:5);
  33.       end;
  34.       writeln
  35.     end;
  36.   writeln;
  37. end.
  38.  
  39.