home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
m2t-2.zip
/
ANSWERS
/
CH06E1.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
930b
|
44 lines
(* Chapter 6 - Programming exercise 1 *)
MODULE CH06E1;
FROM InOut IMPORT WriteString, WriteCard, WriteInt, WriteLn;
VAR Numbers : ARRAY[1..12] OF CARDINAL;
Index : INTEGER;
BEGIN
FOR Index := 1 TO 12 DO
Numbers[Index] := Index + 200;
END;
FOR Index := 1 TO 12 DO
WriteString("The value of element");
WriteInt(Index,3);
WriteString(" is");
WriteCard(Numbers[Index],4);
WriteLn;
END;
END CH06E1.
(* Result of execution
The value of element 1 is 201
The value of element 2 is 202
The value of element 3 is 203
The value of element 4 is 204
The value of element 5 is 205
The value of element 6 is 206
The vlaue of element 7 is 207
The value of element 8 is 208
The value of element 9 is 209
The value of element 10 is 210
The value of element 11 is 211
The value of element 12 is 212
*)