home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH06E1.MOD < prev    next >
Text File  |  1989-01-18  |  930b  |  44 lines

  1.                             (* Chapter 6 - Programming exercise 1 *)
  2. MODULE CH06E1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteCard, WriteInt, WriteLn;
  5.  
  6. VAR Numbers : ARRAY[1..12] OF CARDINAL;
  7.     Index   : INTEGER;
  8.  
  9. BEGIN
  10.  
  11.    FOR Index := 1 TO 12 DO
  12.       Numbers[Index] := Index + 200;
  13.    END;
  14.  
  15.    FOR Index := 1 TO 12 DO
  16.       WriteString("The value of element");
  17.       WriteInt(Index,3);
  18.       WriteString(" is");
  19.       WriteCard(Numbers[Index],4);
  20.       WriteLn;
  21.    END;
  22.  
  23. END CH06E1.
  24.  
  25.  
  26.  
  27.  
  28. (* Result of execution
  29.  
  30. The value of element  1 is 201
  31. The value of element  2 is 202
  32. The value of element  3 is 203
  33. The value of element  4 is 204
  34. The value of element  5 is 205
  35. The value of element  6 is 206
  36. The vlaue of element  7 is 207
  37. The value of element  8 is 208
  38. The value of element  9 is 209
  39. The value of element 10 is 210
  40. The value of element 11 is 211
  41. The value of element 12 is 212
  42.  
  43. *)
  44.