vor

Auswahlstrukturen
CASE OF

 weiter

Rabatt

Gegeben sind Variablen für die Anzahl (Integer) und den Einzelpreis (Real);

Zu berechnen sind der Grundpreis, der Rabattsatz, der Rabatt, und der Endpreis, wenn folgendes gilt:

AnzahlRabattsatz
0... 99 0%
100... 499 5%
500... 999 10%
1000...1499 15%
1500...1999 20%
ab 2000 30%



Die CASE-Anweisung mit Wertebereichen ist besonders anschaulich.

Als Eingabevariablen sind nur Anzahl (über Edit1.Text) und Einzelpreis (über Edit2.Text) einzulesen.

Alle übrigen Textfelder dienen nur der Ausgabe.
Komponente Eigenschaft Wert Bemerkungen
Form1 Caption ‘Rechnung mit Rabatt’ Überschrift in der Kopfleiste des Programmfensters
Label1 Caption ‘Stückzahl’ Bezeichnung der Eingabevariablen
Edit1 Text ‘0’ Eingabefeld für Stückzahl
Label2 Caption ‘Einzelpreis’ Bezeichnung der Eingabevariablen
Edit2 Text ‘1’ Eingabefeld für Einzelpreis
Label3 bis 6 Caption ‘Bezeichnis’ Bezeichnung der Ausgabevariablen
Edit3 bis 6 Text ‘0’ Ausgabefelder
Label7 bis 11 Caption ‘Euro’ bzw. '%' Einheit der Ausgabevariablen
Button1 Caption ‘Kasse’ Schalter für die Berechnung
Button2 Caption ‘Löschen’ Schalter für die Zurücksetzung der Werte
Button3 Caption ‘Ende’ Schalter für Beenden
Lösung
Zusatzaufgabe für Fortgeschrittene:
Mit der Funktion FloatToStrF() kann man die Währungsausdrücke professioneller formatieren.
vor

Inhaltsverzeichnis

 weiter