home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRANS.ZIP / CH09_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.2 KB  |  52 lines
  1.                             (* Chapter 9 - Programming exercise 1 *)
  2. program Five_friends;
  3.  
  4. type Person = record
  5.    First_Name : string[10];
  6.    Last_Name  : string[10];
  7.    Age        : integer;
  8.    end;
  9.  
  10. var Friends : array[1..5] of Person;
  11.     Index   : integer;
  12.  
  13. begin
  14.    Friends[1].First_Name := 'Donald';
  15.    Friends[1].Last_Name  := 'Duck';
  16.    Friends[1].Age        := 50;
  17.  
  18.    Friends[2].First_Name := 'Jack';
  19.    Friends[2].Last_Name  := 'Frost';
  20.    Friends[2].Age        := 134;
  21.  
  22.    Friends[3].First_Name := 'Humpty';
  23.    Friends[3].Last_Name  := 'Dumpty';
  24.    Friends[3].Age        := 76;
  25.  
  26.    Friends[4].First_Name := 'Howdy';
  27.    Friends[4].Last_Name  := 'Doody';
  28.    Friends[4].Age        := 32;
  29.  
  30.    Friends[5].First_Name := 'Blaise';
  31.    Friends[5].Last_Name  := 'Pascal';
  32.    Friends[5].Age        := 231;
  33.  
  34.    for index := 1 to 5 do
  35.       Writeln(Friends[Index].First_Name,' ',
  36.               Friends[Index].Last_Name,' is',
  37.               Friends[Index].Age:4,' years old.');
  38. end.
  39.  
  40.  
  41.  
  42.  
  43. { Result of execution
  44.  
  45. Donald Duck is  50 years old.
  46. Jack Frost is 134 years old.
  47. Humpty Dumpty is  76 years old.
  48. Howdy Doody is  32 years old.
  49. Blaise Pascal is 231 years old.
  50.  
  51. }
  52.