mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
49 lines
1 KiB
Modula-2
49 lines
1 KiB
Modula-2
MODULE ifelse;
|
|
|
|
|
|
IMPORT Out;
|
|
|
|
VAR n, m : INTEGER;
|
|
|
|
|
|
BEGIN
|
|
n := 8; m := 4;
|
|
|
|
IF n MOD m = 0 THEN
|
|
Out.Int(n,0); Out.String(" is divisible by "); Out.Int(m,0); Out.Ln;
|
|
END;
|
|
|
|
n := 7; m := 6;
|
|
|
|
IF n * m = 42 THEN
|
|
Out.Int(n,0); Out.String(" times "); Out.Int(m,0); Out.String(" equals 42"); Out.Ln;
|
|
END;
|
|
|
|
IF n # m THEN Out.Int(n,0); Out.String(" does not equal "); Out.Int(m,0); Out.Ln; END;
|
|
|
|
IF ODD(n)
|
|
THEN
|
|
Out.Int(n,0); Out.String(" is odd"); Out.Ln;
|
|
ELSE
|
|
Out.Int(n,0); Out.String(" is even"); Out.Ln;
|
|
END;
|
|
|
|
IF ~ODD(m)
|
|
THEN
|
|
Out.Int(m,0); Out.String(" is even"); Out.Ln;
|
|
ELSE
|
|
Out.Int(m,0); Out.String(" is odd"); Out.Ln;
|
|
END;
|
|
|
|
n := 9;
|
|
|
|
IF n < 0
|
|
THEN
|
|
Out.Int(n, 0); Out.String(" is negative"); Out.Ln;
|
|
ELSIF n < 10
|
|
THEN
|
|
Out.Int(n, 0); Out.String(" has 1 digit"); Out.Ln;
|
|
ELSE
|
|
Out.Int(n, 0); Out.String(" has multiple digits"); Out.Ln;
|
|
END;
|
|
END ifelse.
|