home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH06_2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  897 b   |  36 lines
  1.                             (* Chapter 6 - Programming exercise 2 *)
  2. program First_Array;
  3.  
  4. var Product : array[1..10,1..10] of integer;
  5.     Row     : integer;
  6.     Column  : integer;
  7.  
  8. begin
  9.    for Row := 1 to 10 do
  10.       for Column := 1 to 10 do
  11.          Product[Row, Column] := Row * Column;
  12.  
  13.    for Row := 1 to 10 do begin
  14.       for Column := 1 to 10 do
  15.          Write(Product[Row,Column]:4);
  16.       Writeln;
  17.    end;
  18. end.
  19.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25.    1   2   3   4   5   6   7   8   9  10
  26.    2   4   6   8  10  12  14  16  18  20
  27.    3   6   9  12  15  18  21  24  27  30
  28.    4   8  12  16  20  24  28  32  36  40
  29.    5  10  15  20  25  30  35  40  45  50
  30.    6  12  18  24  30  36  42  48  54  60
  31.    7  14  21  28  35  42  49  56  63  70
  32.    8  16  24  32  40  48  56  64  72  80
  33.    9  18  27  36  45  54  63  72  81  90
  34.   10  20  30  40  50  60  70  80  90 100
  35.  
  36. }