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

 
Output of file : FUNCTION.PAS contained in archive : PASTUT.ZIP
(* 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 *)




{ Result of execution

There are a total of 28 paws.

}


  3 Responses to “Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : FUNCTION.PAS
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/