home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
MODULA
/
MODTUTOR
/
RECURSON.MOD
< prev
next >
Wrap
Text File
|
1993-12-01
|
507b
|
23 lines
(* Chapter 5 - Program 7 *)
MODULE Recurson;
FROM InOut IMPORT WriteString, WriteInt, WriteLn;
VAR Count : INTEGER;
PROCEDURE PrintAndDecrement(Index : INTEGER);
BEGIN
WriteString("The value of the Index is");
WriteInt(Index,5);
WriteLn;
Index := Index - 1;
IF Index > 0 THEN
PrintAndDecrement(Index);
END;
END PrintAndDecrement;
BEGIN (* Main program *)
Count := 7;
PrintAndDecrement(Count);
END Recurson.