MODULE IfBeispiel; (* Das Definition-Modul bitte selber schreiben *) IMPORT Read, Write; VAR a,b: INTEGER; BEGIN Write.Ln; a := 10; b := 13; (* If-Beispiel 1 *) IF (a > b) THEN Write.String("a ist groesser als b"); ELSE Write.String("b ist groesser als a"); END; Write.Ln; (* If-Beispiel 2 *) (* Genau einer der folgenden Faelle trifft zu *) IF (a > 5) & (a < 10) THEN Write.String("a liegt zwischen 6 und 9"); ELSIF (a >= 10) & (a < 20) THEN Write.String("a liegt zwischen 10 und 19"); ELSIF (a >= 20) & (a < 30) THEN Write.String("a liegt zwischen 20 und 29"); ELSE Write.String("a ist groesser gleich 30"); END; Write.Ln; (* Weitere Beispiele *) IF (a > 5) & (b = 14) THEN Write.String("a ist groesser 5 und b = 14"); END; Write.Ln; IF (a > 5) & (b = 13) THEN Write.String("a ist groesser 5 und b = 13"); END; Write.Ln; IF (a > 5) OR (b = 14) THEN Write.String("a ist entweder groesser 5 oder b ist 14"); END; Write.Ln; IF (a >= 20) OR (~(b = 14)) THEN Write.String("a ist entweder groesser als 20 oder b ist nicht gleich 14"); END; Write.Ln; Write.Ln; END IfBeispiel.