home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mod2tutr.zip
/
EXAMPLES.ZIP
/
CH06E2.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
989b
|
43 lines
(* Chapter 6 - Programming exercise 2 *)
MODULE CH06E2;
FROM InOut IMPORT WriteCard, WriteLn;
VAR BigArray : ARRAY[1..10] OF ARRAY[1..10] OF CARDINAL;
Index1, Index2 : CARDINAL;
BEGIN
FOR Index1 := 1 TO 10 DO
FOR Index2 := 1 TO 10 DO
BigArray[Index1,Index2] := Index1 * Index2;
END;
END;
FOR Index1 := 1 TO 10 DO
FOR Index2 := 1 TO 10 DO
WriteCard(BigArray[Index1,Index2],4);
END;
WriteLn;
END;
END CH06E2.
(* Result of execution
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20
3 6 9 12 15 18 21 24 27 30
4 8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100
*)