home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mod2tutr.zip
/
EXAMPLES.ZIP
/
CH03E1.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
1KB
|
62 lines
(* Chapter 3 - Programming exercise 1 *)
MODULE CH03E1;
FROM InOut IMPORT WriteString, WriteLn, WriteCard, Write;
VAR Lettera : CHAR;
Letterz : CHAR;
Number0 : CHAR;
Number9 : CHAR;
La, Lz, N0, N9 : CARDINAL;
BEGIN
Lettera := 'a';
Letterz := 'z';
Number0 := '0';
Number9 := '9';
La := ORD(Lettera);
Lz := ORD(Letterz);
N0 := ORD(Number0);
N9 := ORD(Number9);
WriteString("The character ");
Write(Lettera);
WriteString(" has the value of ");
WriteCard(La,2);
WriteLn;
WriteString("The character ");
Write(Letterz);
WriteString(" has the value of ");
WriteCard(Lz,2);
WriteLn;
WriteString("The character ");
Write(Number0);
WriteString(" has the value of ");
WriteCard(N0,2);
WriteLn;
WriteString("The character ");
Write(Number9);
WriteString(" has the value of ");
WriteCard(N9,2);
WriteLn;
END CH03E1.
(* Result of execution
The character a has the value of 97
The character z has the value of 122
The character 0 has the value of 48
The character 9 has the value of 57
*)