home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / INHERIT3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.7 KB  |  58 lines
  1.                                      (* Chapter 15 - Program 7 *)
  2. program Inheritance_3;
  3.  
  4. uses vehicles, CarTruck;
  5.  
  6. { ************************ main program ************************** }
  7.  
  8. var Unicycle   : Vehicle;
  9.     Sedan      : array[1..3] of Car;
  10.     Semi_Point : ^Truck;
  11.     Index      : integer;
  12.  
  13. begin
  14.  
  15.    Unicycle.Init(1, 12.0);
  16.    for Index := 1 to 3 do
  17.       Sedan[Index].Init(4, 2100.0, 5 + Index);
  18.    New(Semi_Point);
  19.    Semi_Point^.Init(1, 25000.0, 18, 5000.0);
  20.  
  21.    WriteLn('The unicycle weighs ', Unicycle.Get_Weight:5:1,
  22.            ' pounds, and has ', Unicycle.Get_Wheels, ' wheel.');
  23.    for Index := 1 to 3 do
  24.       WriteLn('The car weighs ', Sedan[Index].Get_Weight:7:1,
  25.               ' pounds, and carries ', Sedan[Index].Passengers,
  26.               ' passengers.');
  27.  
  28.    WriteLn('The semi has a wheel loading of ',
  29.            Semi_Point^.Wheel_Loading:8:1,
  30.            ' pounds per tire,');
  31.    WriteLn(' and has an efficiency of ', Semi_Point^.Efficiency:5:1,
  32.            ' percent.');
  33.  
  34.    with Semi_Point^ do
  35.    begin
  36.       WriteLn('The semi has a wheel loading of ', Wheel_Loading:8:1,
  37.               ' pounds per tire,');
  38.       WriteLn(' and has an efficiency of ', Efficiency:5:1,
  39.               ' percent.');
  40.    end;
  41.    Dispose(Semi_Point);
  42. end.
  43.  
  44.  
  45.  
  46.  
  47. { Result of execution
  48.  
  49. The unicycle weighs  12.0 pounds, and has 1 wheel.
  50. The car weighs  2100.0 pounds, and carries 6 passengers.
  51. The car weighs  2100.0 pounds, and carries 7 passengers.
  52. The car weighs  2100.0 pounds, and carries 8 passengers.
  53. The semi has a wheel loading of   1666.7 pounds per tire,
  54.  and has an efficiency of 83.3 percent.
  55. The semi has a wheel loading of   1666.7 pounds per tire,
  56.  and has an efficiency of 83.3 percent.
  57.  
  58. }