home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / SMALLREC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  841 b   |  31 lines
  1.                                 (* Chapter 9 - Program 1 *)
  2. program A_Small_Record;
  3.  
  4. type Description = record
  5.        Year    : integer;
  6.        Model   : string[20];
  7.        Engine  : string[8];
  8.        end;
  9.  
  10. var  Cars  : array[1..10] of Description;
  11.      Index : integer;
  12.  
  13. begin  (* main program *)
  14.    for Index := 1 to 10 do begin
  15.       Cars[Index].Year := 1930 + Index;
  16.       Cars[Index].Model := 'Duesenburg';
  17.       Cars[Index].Engine := 'V8';
  18.    end;
  19.  
  20.    Cars[2].Model := 'Stanley Steamer';
  21.    Cars[2].Engine := 'Coal';
  22.    Cars[7].Engine := 'V12';
  23.    Cars[9].Model := 'Ford';
  24.    Cars[9].Engine := 'rusted';
  25.  
  26.    for Index := 1 to 10 do begin
  27.       Write('My ',Cars[Index].Year:4,' ');
  28.       Write(Cars[Index].Model,' has a ');
  29.       Writeln(Cars[Index].Engine,' engine.');
  30.    end;
  31. end.  (* of main program *)