home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
m2t-2.zip
/
LOOPIF.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
1KB
|
46 lines
(* Chapter 4 - Program 3 *)
MODULE LoopIf;
FROM InOut IMPORT WriteString, WriteInt, WriteLn;
VAR Index, Count, Dog : INTEGER;
BEGIN
FOR Index := 1 TO 10 DO
WriteString("Major loop");
WriteInt(Index,3);
IF Index < 7 THEN
FOR Count := 15 TO (15 + Index) DO
WriteString(' XXX');
END;
WriteLn;
ELSE
WriteString(' How many dogs?');
FOR Dog := 1 TO 10 - Index DO
WriteString(" too many");
END;
WriteLn;
END; (* ELSE part of IF statement *)
END (* Major FOR loop *)
END LoopIf.
(* Result of execution
Major loop 1 XXX XXX
Major loop 2 XXX XXX XXX
Major loop 3 XXX XXX XXX XXX
Major loop 4 XXX XXX XXX XXX XXX
Major loop 5 XXX XXX XXX XXX XXX XXX
Major loop 6 XXX XXX XXX XXX XXX XXX XXX
Major loop 7 How many dogs? too many too many too many
Major loop 8 How many dogs? too many too many
Major loop 9 How many dogs? too many
Major loop 10 How many dogs?
*)