home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / RECURSON.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  664b  |  33 lines
  1.                                 (* Chapter 5 - Program 7 *)
  2. program Try_Recursion;
  3.  
  4. var Count : integer;
  5.  
  6. procedure Print_And_Decrement(Index : integer);
  7. begin
  8.    Writeln('The value of the index is ',Index:3);
  9.    Index := Index - 1;
  10.    if Index > 0 then
  11.       Print_And_Decrement(Index);
  12. end;
  13.  
  14. begin  (* main program *)
  15.    Count := 7;
  16.    Print_And_Decrement(Count);
  17. end.  (* main program *)
  18.  
  19.  
  20.  
  21.  
  22. { Result of execution
  23.  
  24. The value of the index is   7
  25. The value of the index is   6
  26. The value of the index is   5
  27. The value of the index is   4
  28. The value of the index is   3
  29. The value of the index is   2
  30. The value of the index is   1
  31.  
  32. }
  33.