Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : ENCAP2.PAS

(* Chapter 15 - Program 2 *)
program Encapsulation_2;

type
Box = object
length : integer;
width : integer;
constructor Init(len, wid : integer);
procedure Set_Data(len, wid : integer);
function Get_Area : integer;
end;

Pole = object
height : integer;
depth : integer;
constructor Init(hei, dep : integer);
procedure Set_Data(hei, dep : integer);
function Get_Total_Length : integer;
end;

constructor Box.Init(len, wid : integer);
begin
length := len;
width := wid;
end;

constructor Pole.Init(hei, dep : integer);
begin
height := hei;
depth := dep;
end;

procedure Box.Set_Data(len, wid : integer);
begin
length := len;
width := wid;
end;

function Box.Get_Area : integer;
begin
Get_Area := length * width;
end;

procedure Pole.Set_Data(hei, dep : integer);
begin
height := hei;
depth := dep;
end;

function Pole.Get_Total_length : integer;
begin
Get_Total_length := height + depth;
end;

var Small, Medium, Large : Box;
Short, Average, Tall : Pole;

begin

Small.Init(8,8);
Medium.Init(10,12);
Large.Init(15,20);
Short.Init(8,2);
Average.Init(12,3);
Tall.Init(17,4);

WriteLn('The area of the small box is ',Small.Get_Area);
WriteLn('The area of the medium box is ',Medium.Get_Area);
WriteLn('The area of the large box is ',Large.Get_Area);
WriteLn('The overall length of the short pole is ',
Short.Get_Total_Length);
WriteLn('The overall length of the average pole is ',
Average.Get_Total_Length);
WriteLn('The overall length of the tall pole is ',
Tall.Get_Total_Length);
WriteLn;

Small.Set_Data(6,7);
Short.Set_Data(6,1);
Average.Set_Data(11,2);
WriteLn('The area of the small box is ',Small.Get_Area);
WriteLn('The area of the medium box is ',Medium.Get_Area);
WriteLn('The area of the large box is ',Large.Get_Area);
WriteLn('The overall length of the short pole is ',
Short.Get_Total_Length);
WriteLn('The overall length of the average pole is ',
Average.Get_Total_Length);
WriteLn('The overall length of the tall pole is ',
Tall.Get_Total_Length);

end.




{ Result of execution

The area of the small box is 64
The area of the medium box is 120
The area of the large box is 300
The overall length of the short pole is 10
The overall length of the average pole is 15
The overall length of the tall pole is 21

The area of the small box is 42
The area of the medium box is 120
The area of the large box is 300
The overall length of the short pole is 7
The overall length of the average pole is 13
The overall length of the tall pole is 21

}