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"