Musterlösung zu "Rabatt"

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