This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 5 - Program 3 *)
program Make_A_Fruit_Salad;
var Apple,Orange,Pear,Fruit : integer;
procedure Add_The_Fruit(Value1,Value2 : integer; (* one-way *)
var Total : integer; (* two-way *)
Value3 : integer); (* one-way *)
begin
Total := Value1 + Value2 + Value3;
end;
begin (* main program *)
Apple := 4;
Orange := 5;
Pear := 7;
Add_The_Fruit(Apple,Orange,Fruit,Pear);
Writeln('The fruit basket contains ',Fruit:3,' fruits');
end. (* of main program *)
