home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / FUNCTION.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  487 b   |  26 lines
  1.                                 (* Chapter 5 - Program 6 *)
  2. program Example_Function;
  3.  
  4. var Dogs,Cats,Feet : integer;
  5.  
  6. function Quad_Of_Sum(Number1,Number2 : integer) : integer;
  7. begin
  8.    Quad_Of_Sum := 4*(Number1 + Number2);
  9. end;
  10.  
  11. begin  (* main program *)
  12.    Dogs := 4;
  13.    Cats := 3;
  14.    Feet := Quad_Of_Sum(Dogs,Cats);
  15.    Writeln(' There are a total of',Feet:3,' paws.');
  16. end.  (* of main program *)
  17.  
  18.  
  19.  
  20.  
  21. { Result of execution
  22.  
  23.  There are a total of 28 paws.
  24.  
  25. }
  26.