home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / PROCED5.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  625 b   |  44 lines
  1.                                 (* Chapter 5 - Program 5 *)
  2. program Procedure_Calling_A_Procedure;
  3.  
  4. procedure One;
  5. begin
  6.    Writeln('This is procedure one');
  7. end;
  8.  
  9. procedure Two;
  10. begin
  11.    One;
  12.    Writeln('This is procedure two');
  13. end;
  14.  
  15. procedure Three;
  16. begin
  17.    Two;
  18.    Writeln('This is procedure three');
  19. end;
  20.  
  21. begin  (* main program *)
  22.    One;
  23.    Writeln;
  24.    Two;
  25.    Writeln;
  26.    Three;
  27. end. (* of main program *)
  28.  
  29.  
  30.  
  31.  
  32. { Result of execution
  33.  
  34. This is procedure one
  35.  
  36. This is procedure one
  37. This is procedure two
  38.  
  39. This is procedure one
  40. This is procedure two
  41. This is procedure three
  42.  
  43. }
  44.