Ein Test-Kandidat

Triangles.om

MODULE Triangles; IMPORT Read, Streams, Write; (* ... *) PROCEDURE DoIt; VAR len1, len2, len3: INTEGER; BEGIN IF ~ReadIntegers(len1, len2, len3) THEN Write.Line("invalid input"); ELSIF (len1 <= 0) OR (len2 <= 0) OR (len3 <= 0) THEN Write.Line("non-positive length(s)"); ELSIF ~IsTriangle(len1, len2, len3) THEN Write.Line("no triangle"); ELSIF IsEquilateral(len1, len2, len3) THEN Write.Line("equilateral"); ELSIF IsIsosceles(len1, len2, len3) THEN Write.Line("isosceles"); ELSE Write.Line("scalene"); END; END DoIt; BEGIN DoIt; END Triangles.