| 1234567891011121314151617 |
- Listing:
- 1 MODULE AMat;
- 2 VAR a, b, c : ARRAY [1 .. 2], [1 .. 2] OF INTEGER; ExitCode : INTEGER;
- 3 BEGIN
- 4 a[1,1] := 1; a[1,2] := 2; a[2,1] := 3; a[2,2] := 4;
- 5 b[1,1] := 5; b[1,2] := 6; b[2,1] := 7; b[2,2] := 8;
- 6 c[1,1] := a[1,1]*b[1,1] + a[1,2]*b[2,1];
- 7 c[1,2] := a[1,1]*b[1,2] + a[1,2]*b[2,2];
- 8 c[2,1] := a[2,1]*b[1,1] + a[2,2]*b[2,1];
- 9 c[2,2] := a[2,1]*b[1,2] + a[2,2]*b[2,2];
- 10 ExitCode := c[1,1] + c[1,2] + c[2,1] + c[2,2]
- 11 END AMat.
- 0 errors
|
