home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PASSRC.ZIP
/
VEHICLES.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
883b
|
48 lines
(* Chapter 14 - Program 4 *)
unit Vehicles;
interface
type
Vehicle = object
Wheels : integer;
Weight : real;
constructor Init(In_Wheels : integer; In_Weight : real);
function Get_Wheels : integer;
function Get_Weight : real;
function Wheel_loading : real;
end;
implementation
constructor Vehicle.Init(In_Wheels : integer; In_Weight : real);
begin
Wheels := In_Wheels;
Weight := In_Weight;
end;
function Vehicle.Get_Wheels : integer;
begin
Get_Wheels := Wheels;
end;
function Vehicle.Get_Weight : real;
begin
Get_Weight := Weight;
end;
function Vehicle.Wheel_loading : real;
begin
Wheel_Loading := Weight/Wheels;
end;
end.
{ Result of execution
This file cannot be executed.)
}