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

No need for these ob2 files anymore

Browse source
This commit is contained in:
Antranig Vartanian 2024-05-11 21:39:32 +04:00
parent fed6fad453
commit e60f8acb9f
No known key found for this signature in database
GPG key ID: DE3998662D59F21C
21 changed files with 0 additions and 601 deletions
Download patch file Download diff file Expand all files Collapse all files

49
examples/ifelse/IfElse.Mod.ob2
View file

@ -1,49 +0,0 @@
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.