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 >
Text File  |  1989-01-18  |  989b  |  43 lines
  1.                             (* Chapter 6 - Programming exercise 2 *)
  2. MODULE CH06E2;
  3.  
  4. FROM InOut IMPORT WriteCard, WriteLn;
  5.  
  6. VAR BigArray : ARRAY[1..10] OF ARRAY[1..10] OF CARDINAL;
  7.     Index1, Index2 : CARDINAL;
  8.  
  9. BEGIN
  10.  
  11.    FOR Index1 := 1 TO 10 DO
  12.       FOR Index2 := 1 TO 10 DO
  13.          BigArray[Index1,Index2] := Index1 * Index2;
  14.       END;
  15.    END;
  16.  
  17.    FOR Index1 := 1 TO 10 DO
  18.       FOR Index2 := 1 TO 10 DO
  19.          WriteCard(BigArray[Index1,Index2],4);
  20.       END;
  21.       WriteLn;
  22.    END;
  23. END CH06E2.
  24.  
  25.  
  26.  
  27.  
  28. (* Result of execution
  29.  
  30.    1   2   3   4   5   6   7   8   9  10
  31.    2   4   6   8  10  12  14  16  18  20
  32.    3   6   9  12  15  18  21  24  27  30
  33.    4   8  12  16  20  24  28  32  36  40
  34.    5  10  15  20  25  30  35  40  45  50
  35.    6  12  18  24  30  36  42  48  54  60
  36.    7  14  21  28  35  42  49  56  63  70
  37.    8  16  24  32  40  48  56  64  72  80
  38.    9  18  27  36  45  54  63  72  81  90
  39.   10  20  30  40  50  60  70  80  90 100
  40.  
  41. *)
  42.  
  43.