home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / PROCED3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  669 b   |  29 lines
  1.                                 (* Chapter 5 - Program 3 *)
  2. program Make_A_Fruit_Salad;
  3.  
  4. var Apple,Orange,Pear,Fruit : integer;
  5.  
  6. procedure Add_The_Fruit(Value1,Value2 : integer;  (* one-way *)
  7.                        var Total      : integer;  (* two-way *)
  8.                        Value3         : integer); (* one-way *)
  9. begin
  10.    Total := Value1 + Value2 + Value3;
  11. end;
  12.  
  13. begin  (* main program *)
  14.    Apple := 4;
  15.    Orange := 5;
  16.    Pear := 7;
  17.    Add_The_Fruit(Apple,Orange,Fruit,Pear);
  18.    Writeln('The fruit basket contains ',Fruit:3,' fruits');
  19. end.  (* of main program *)
  20.  
  21.  
  22.  
  23.  
  24. { Result of execution
  25.  
  26. The fruit basket contains  16 fruits
  27.  
  28. }
  29.