Musterlösung zu "Grundrechenarten"

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"