home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH11E1.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  57 lines
  1.                             (* Chapter 11 - Programming exercise 1 *)
  2. MODULE CH11E1;
  3.  
  4. FROM InOut   IMPORT WriteString, WriteCard, WriteLn;
  5.  
  6. TYPE Name = RECORD
  7.        FirstName : ARRAY[0..12] OF CHAR;
  8.        Initial   : CHAR;
  9.        LastName  : ARRAY[0..12] OF CHAR;
  10.      END;
  11.  
  12. VAR  Friend : ARRAY[1..5] OF Name;
  13.      Index  : CARDINAL;
  14.  
  15. BEGIN   (* Main Program *)
  16.  
  17.    Friend[1].FirstName := "Gwen";
  18.    Friend[1].Initial := 'J';
  19.    Friend[1].LastName := "Preston";
  20.    Friend[2].FirstName := "Joe";
  21.    Friend[2].Initial := 'R';
  22.    Friend[2].LastName := "Seale";
  23.    Friend[3].FirstName := "Marvin";
  24.    Friend[3].Initial := 'E';
  25.    Friend[3].LastName := "Johnson";
  26.    Friend[4].FirstName := "Bill";
  27.    Friend[4].Initial := 'C';
  28.    Friend[4].LastName := "Williams";
  29.    Friend[5].FirstName := "Judy";
  30.    Friend[5].Initial := 'C';
  31.    Friend[5].LastName := "Birdstone";
  32.  
  33.    FOR Index := 1 TO 5 DO
  34.       WriteString(Friend[Index].FirstName);
  35.       WriteString(" ");
  36.       WriteString(Friend[Index].Initial);
  37.       WriteString(" ");
  38.       WriteString(Friend[Index].LastName);
  39.       WriteLn;
  40.    END;
  41.  
  42. END CH11E1.
  43.  
  44.  
  45.  
  46.  
  47. (* Result of execution
  48.  
  49. Gwen J Preston
  50. Joe R Seale
  51. Marvin E Johnson
  52. Bill C Williams
  53. Judy C Birdstone
  54.  
  55. *)
  56.  
  57.