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