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

(* Chapter 5 - Program 2 *)
program Another_Procedure_Example;

var Count : integer;
Index : integer;

procedure Print_Data_Out(Puppy : integer);
begin
Writeln('This is the print routine',Puppy:5);
Puppy := 12;
end;

procedure Print_And_Modify(var Cat : integer);
begin
Writeln('This is the print and modify routine',Cat:5);
Cat := 35;
end;

begin (* main program *)
for Count := 1 to 3 do begin
Index := Count;
Print_Data_Out(Index);
Writeln('Back from the print routine, Index =',Index:5);
Print_And_Modify(Index);
Writeln('Back from the modify routine, Index =',Index:5);
Print_Data_Out(Index);
Writeln('Back from print again and the Index =',Index:5);
Writeln; (* This is just for formatting *)
end;
end. (* of main program *)




{ Result of execution

This is the print routine 1
Back from the print routine, Index = 1
This is the print and modify routine 1
Back from the modify routine, Index = 35
This is the print routine 35
Back from print again and the Index = 35

This is the print routine 2
Back from the print routine, Index = 2
This is the print and modify routine 2
Back from the modify routine, Index = 35
This is the print routine 35
Back from print again and the Index = 35

This is the print routine 3
Back from the print routine, Index = 3
This is the print and modify routine 3
Back from the modify routine, Index = 35
This is the print routine 35
Back from print again and the Index = 35

}