MODULE Rabatt;
IMPORT Display;
PROCEDURE ProgMain* ;
VAR
kaufpreis, rabatt: REAL;
ch: CHAR;
BEGIN
Display. WriteStr(" R A B A T T B E R E C H N U N G");
Display. WriteLn;
Display. WriteStr(" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%");
Display. WriteLn;
Display. WriteStr ("Bitte geben Sie den Kaufpreis an: ");
Display. ReadReal (kaufpreis, 4,ch);
Display. WriteLn;
Display. WriteStr ("Wieviel Prozent Rabatt? ");
Display. ReadReal (rabatt, 4,ch);
Display. WriteLn;
kaufpreis := (1-rabatt/100)*kaufpreis;
Display. WriteStr ("Neuer Preis: ");
Display. WriteReal (kaufpreis, 10);
Display. WriteLn;
Display. ReadChar (ch);
END ProgMain;
END Rabatt.
Zurück zum Thema Variable