Also ein paar Dinge kannst Dir wirklich sparen:
Quelltext
1: 2:
| END ELSE Rab := SummePro * 1; |
Soviel ich weis ändert sich nichts an einem Wert, wenn man ihn mit 1 multipliziert, oder? Also kannst das auch genausogut weglassen.
Wie übrigends die gesamte Prozedur Bedingung.
Diese eine If-Zeile kannst auch genausogut unten reinschreiben.
Ach ja: Es wäre auch günstig ERST SummePro berechnen zu lassen BEVOR Du da Prozente abrechnen willst. Macht sonst irgendwie wenig Sinn, oder?
Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| BEGIN CLRSCR; Eingabe; Bedingung; // Hier werden 25% von einem unbestimmten Wert berechnet Rechnung; // Und hier wird dann SummePro (ohne %) berechnet Ausgabe; READLN; END. |
OK, und wegen dem Abziehen: Wenn Du die Konstante nicht auf 0.75 setzen willst kannst zB auch
IF Antwort = 'J' then SummePro := SummePro * (1 - Rabatt); verwenden. Ist besser wenn später der Rabatt mal geändert werden soll. (In ein paar Monaten bist sonst überzeugt, daß Du bisher immer 75% Rabatt eingeräumt hast...)
Viele Grüße,
Wolfgang
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."