1 PROGRAM ARITHMETIK(INPUT, OUTPUT);
4 FUNCTION ZIFFER(Z: CHAR): BOOLEAN;
5 BEGIN ZIFFER := ("0"<=Z) AND (Z<="9") END;
7 FUNCTION AUSDRUCK: REAL;
15 REPEAT W := 10*W + ORD(Z) - ORD("0");
17 UNTIL NOT (ZIFFER(Z));
21 THEN BEGIN FAKTOR := AUSDRUCK;
29 WHILE (Z="*") OR (Z="/") DO
30 IF Z = "*" THEN W := W*FAKTOR
37 WHILE (Z="+") OR (Z="-") DO
38 IF Z = "+" THEN W := W + TERM
44 REPEAT WRITE(" ");WRITELN(AUSDRUCK:7:3);