home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOTUT.ZIP / RECURSON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-21  |  341 b   |  17 lines
  1. PROGRAM try_recursion;
  2.  
  3. VAR count : INTEGER;
  4.  
  5. PROCEDURE print_and_decrement(index : INTEGER);
  6. BEGIN
  7.   WRITELN('The value of the index is ',index:3);
  8.   index := index - 1;
  9.   IF index > 0 THEN
  10.     print_and_decrement(index);
  11. END;
  12.  
  13. BEGIN  (* main program *)
  14.   count := 7;
  15.   print_and_decrement(count);
  16. END.  (* main program *)
  17.