1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
PROGRAM stringops;
CONST
lexbig = 'zzzLexically Great';
lexmiddle1 = 'ZZZLexically Middle+';
lexmiddle = 'ZZZLexically Middle';
lexmiddle2 = 'ZZZLexically Middl';
lexsmall = 'AAALexically Small';
lexnothing = ''
VAR
string1, string2 : string;
BEGIN
IF (lexbig <= lexmiddle) THEN
writeln('ERROR: ', lexbig, ' <= ', lexmiddle)
else
writeln('OKAY: ', lexbig, ' > ', lexmiddle);
IF (lexmiddle > lexmiddle1) THEN
writeln('ERROR: ', lexmiddle, ' > ', lexmiddle1)
else
writeln('OKAY: ', lexmiddle, ' <= ', lexmiddle1);
IF (lexmiddle <> lexmiddle) THEN
writeln('ERROR: ', lexmiddle, ' <> ', lexmiddle)
else
writeln('OKAY: ', lexmiddle, ' = ', lexmiddle);
IF (lexmiddle = lexnothing) THEN
writeln('ERROR: ', lexmiddle, ' = ', lexnothing)
else
writeln('OKAY: ', lexmiddle, ' <> ', lexnothing);
IF (lexnothing <> lexnothing) THEN
writeln('ERROR: ', lexnothing, ' <> ', lexnothing)
else
writeln('OKAY: ', lexnothing, ' = ', lexnothing);
IF (lexmiddle < lexmiddle2) THEN
writeln('ERROR: ', lexmiddle, ' < ', lexmiddle2)
else
writeln('OKAY: ', lexmiddle, ' >= ', lexmiddle2);
IF (lexsmall >= lexmiddle) THEN
writeln('ERROR: ', lexsmall, ' >= ', lexmiddle)
else
writeln('OKAY: ', lexsmall, ' < ', lexmiddle)
END.
|