MODULE Grundrec;
IMPORT Display;
PROCEDURE ProgMain*;
VAR ch:CHAR;
a, b,c: REAL;
BEGIN
Display. WriteStr ("Dieses Programm stellt ihnen die vier Grundrechenarten zur Auswahl:");
Display. WriteLn;
Display. WriteStr ("Bitte a eingeben: ");
Display. ReadReal (a,10,ch);
Display. WriteLn;
Display. WriteStr ("Bitte b eingeben: ");
Display. ReadReal (b,10,ch);
Display. WriteLn;
Display. WriteStr ("Rechenart: +,-,*,/?");
Display. ReadChar (ch);
CASE ch OF
"+": c:=a+b;
| "-": c:=a-b;
| "*": c:=a*b;
| "/": c:=a/b;
END;
Display. WriteLn;
Display. WriteStr ("Ergebnis: ");
Display. WriteReal (c, 10);
Display. ReadChar (ch);
END ProgMain;
END Grundrec.
Zurück zum Thema "Mehrfachauswahl"