vishapoberon/oberonbyexample
1
0
Fork 0
mirror of https://github.com/vishapoberon/oberonbyexample.git synced 2026-04-05 21:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

better ifelse

Browse source
This commit is contained in:
antranigv 2017-06-08 21:36:44 +04:00
parent f483b3630f
commit d2ca9a68bb
No known key found for this signature in database
GPG key ID: 60686B14DAB81456
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
ifelse/IfElse.Mod
View file

@ -7,25 +7,25 @@ VAR n, m : INTEGER;
BEGIN
IF 8 MOD 4 = 0
THEN
Out.String("8 is divisible by 4"); Out.Ln;
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.String("7 times 6 equals 42"); Out.Ln;
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.String("7 does not equal 6"); 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.String("7 is odd"); Out.Ln;
Out.Int(n,0); Out.String(" is odd"); Out.Ln;
ELSE
Out.String("7 is even"); Out.Ln;
Out.Int(n,0); Out.String(" is even"); Out.Ln;
END;
n := 9;