home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
pascal
/
pascsrc.arc
/
FUNCTION.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
417b
|
17 lines
(* Chapter 5 - Program 6 *)
program Example_Function;
var Dogs,Cats,Feet : integer;
function Quad_Of_Sum(Number1,Number2 : integer) : integer;
begin
Quad_Of_Sum := 4*(Number1 + Number2);
end;
begin (* main program *)
Dogs := 4;
Cats := 3;
Feet := Quad_Of_Sum(Dogs,Cats);
Writeln(' There are a total of',Feet:3,' paws.');
end. (* of main program *)