fork download
copy 
  1. program matrixszorzas;
  2. const n = 3;
  3. type tomb_tipus =  array[1..n, 1..n] of integer;
  4. procedure kiir(t: tomb_tipus; h: byte);
  5. var i, j: integer;
  6. begin
  7.   for i := 1 to n do begin
  8.     for j := 1 to n do
  9.       write(t[i,j]:h);
  10.     writeln;
  11.   end;
  12.   writeln;
  13. end;
  14. const a: tomb_tipus = ((1,2,4),(5,6,7),(8,9,1));
  15.       b: tomb_tipus = ((2,3,6),(2,3,7),(1,3,0));
  16. var i, j, k, sum: integer; c: tomb_tipus;
  17. begin
  18.   kiir(a, 3);
  19.   kiir(b, 3);
  20.   for i := 1 to n do
  21.     for j := 1 to n do
  22.       begin
  23.         sum := 0;
  24.         for k := 1 to n do
  25.           sum := sum + a[i,k] * b[k,j];
  26.         c[i,j] := sum;
  27.       end;
  28.   kiir(c, 4);
  29.   readln;
  30. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  1  2  4
  5  6  7
  8  9  1

  2  3  6
  2  3  7
  1  3  0

  10  21  20
  29  54  72
  35  54 111
https://ideone.com/6Lk2ch
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!