Musterlösung zu "Wunschzettel"

MODULE Geschenk;

IMPORT Display;

PROCEDURE ProgMain*;
VAR
      ch: CHAR;
      preis: INTEGER;

BEGIN
      Display. WriteStr ("Dieses Programm sagt Ihnen, was sich Heinz zu Weihnachten wünscht");
      Display. WriteLn;
      Display. WriteLn;

      Display. WriteStr ("Welchen Betrag in Euro wollen sie denn ausgeben? ");
      Display. ReadInt (preis, 5, ch);
      Display. WriteLn;

      CASE preis OF
            1..10: Display. WriteStr ("CD")
            |11..50: Display. WriteStr ("Hose")
            |51..100: Display. WriteStr ("Mathebücher")
            ELSE Display. WriteStr ("Weltfrieden");
      END;

      REPEAT UNTIL Display.KeyPressed();

END ProgMain;

END Geschenk.


Zurück zum Thema "Mehrfachauswahl"