Table of Contents
Advertisement
A Change Maker Program in Pascal
PROGRAM cmaker (INPUT, OUTPUT);
(*
This Pascal program is non-interactive. It contains a purchase price
(*
and an amount paid, and puts the change in the memory location of the
(*
variables.
VAR
purchase
paid
change
coins
dollars
quarters
dimes
nickels
pennies
PROCEDURE in it ( * variables will be global *);
BEGIN
purchase
paid
change
coins
dollars
quarters
dimes
nickels
pennies
END;
PROCEDURE getinput ( * purchase, paid *);
BEGIN
paid : = 150;
purchase: = 108
END;
Guide to the PICE™ System Tutorial
:
INTEGER
:
INTEGER
:
INTEGER
:
INTEGER
:
INTEGER
:
INTEGER
:
INTEGER
:
INTEGER
: INTEGER
=
0
=
0
=
0
=
0
=
0
=
0
=
0
=
0
=
0
*)
*)
*)
2-33
Advertisement
Table of Contents
