home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / tutorial / programs / recurson.mod < prev    next >
Text File  |  1993-03-14  |  507b  |  23 lines

  1.                                          (* Chapter 5 - Program 7 *)
  2. MODULE Recurson;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Count : INTEGER;
  7.  
  8. PROCEDURE PrintAndDecrement(Index : INTEGER);
  9. BEGIN
  10.    WriteString("The value of the Index is");
  11.    WriteInt(Index,5);
  12.    WriteLn;
  13.    Index := Index - 1;
  14.    IF Index > 0 THEN
  15.       PrintAndDecrement(Index);
  16.    END;
  17. END PrintAndDecrement;
  18.  
  19. BEGIN    (* Main program *)
  20.    Count := 7;
  21.    PrintAndDecrement(Count);
  22. END Recurson.
  23.