Naine saadab programmeerija poodi:
– “Too palun piima. Ja vaata, kui poes mune on, siis võta kuus.”
Programmeerija tuleb tagasi kuue piimaga… ?
– “Miks sa kuus piima tõid?!”
“Aga poes oli ju mune!”
(* Piimahankimise programm *)
(* PASCAL funktsioonina *)
Program shopping;
var qnt:integer, eggs:boolean;
Function GetMILK(eggs:boolean): INTEGER;
Begin
if (eggs = TRUE) Then
GetMILK:= 6 (*Kui mune on, too 6 piima*)
Else
GetMILK:= 1;
End;
Begin
eggs := TRUE; (*Poes on mune*)
(* calling a function to get milk *)
qnt := GetMILK(eggs);
writeln('MILK quantity is: ', qnt);
End.
