home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / VEHICLES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  883 b   |  48 lines
  1.                                      (* Chapter 15 - Program 4 *)
  2. unit Vehicles;
  3.  
  4. interface
  5.  
  6. type
  7.    Vehicle = object
  8.       Wheels : integer;
  9.       Weight : real;
  10.       constructor Init(In_Wheels : integer; In_Weight : real);
  11.       function Get_Wheels : integer;
  12.       function Get_Weight : real;
  13.       function Wheel_loading : real;
  14.    end;
  15.  
  16. implementation
  17.  
  18.    constructor Vehicle.Init(In_Wheels : integer; In_Weight : real);
  19.    begin
  20.       Wheels := In_Wheels;
  21.       Weight := In_Weight;
  22.    end;
  23.  
  24.    function Vehicle.Get_Wheels : integer;
  25.    begin
  26.       Get_Wheels := Wheels;
  27.    end;
  28.  
  29.    function Vehicle.Get_Weight : real;
  30.    begin
  31.       Get_Weight := Weight;
  32.    end;
  33.  
  34.    function Vehicle.Wheel_loading : real;
  35.    begin
  36.       Wheel_Loading := Weight/Wheels;
  37.    end;
  38.  
  39. end.
  40.  
  41.  
  42.  
  43.  
  44. { Result of execution
  45.  
  46. This file cannot be executed.)
  47.  
  48. }