/
T20IfThenElse.mod
31 lines (24 loc) · 1.04 KB
/
T20IfThenElse.mod
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
MODULE T20IfThenElse;
IMPORT Out;
VAR p : BOOLEAN; i : integer;
BEGIN
p := TRUE;
IF p THEN Out.String( "P" ) ELSE Out.String( "~P" ) END; Out.Ln;
p := ~p;
IF p THEN Out.String( "P" ) ELSE Out.String( "~P" ) END; Out.Ln;
IF 1 # 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
IF 1 = 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
IF 1 > 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
IF 1 < 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
IF 1 >= 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
IF 1 <= 2 THEN Out.String( "TRUE" ) ELSE Out.String( "FALSE" ) END; Out.Ln;
i := -1;
IF i > 0 THEN Out.String( "+" ) ELSIF i < 0 THEN Out.String( "-" ) ELSE Out.String("0") END;
Out.Ln;
i := 0;
IF i > 0 THEN Out.String( "+" ) ELSIF i < 0 THEN Out.String( "-" ) ELSE Out.String("0") END;
Out.Ln;
i := 1;
IF i > 0 THEN Out.String( "+" ) ELSIF i < 0 THEN Out.String( "-" ) ELSE Out.String("0") END;
Out.Ln;
END T205IfThenElse.