Hallo, ich bin neu hier und habe jetzt angefangen so ein bischen zu programieren allerdings habe ich da jetzt ein Problem. Und zwar möchte ich ein Program schreiben das nach der Eingabe von Verkaufspreis mit festen Rabattsätzen den Verkauspreis ausrechnet. Ab 20000 € sollen 5 % Rabatt gegeben werden bei 50000 sollen € 10 % Rabatt gegeben werden und bei 100000 € sollen 12,5 % Rabatt gegeben werden. Die Formel poste ich mal hier rein sie gibt nur einen falschen wert aus. Wenn mir da jemand helfen könnte oder mir die verbesserte Aufgabe zumailen würde fände ich das echt klasse.
Danke im voraus Dooly
Delphi-Quellcode:
// Datum 15.11.02
// Programmbeschreibung: Das Programm soll wenn der Betrag 20.000 € Beträgt 5 % Rabatt,
// bei 50.000 € Beträgt 10 % Rabatt und bei 100000 Beträgt 12,5 % Rabatt.
//Programmkopf
Program Verkaufspreis_Aufgabe_2;
{$apptype Console}
Var Verkaufspreis : Real;
Begin
writeln('Dieses Programm rechnet den Verkaufspreis aus');
writeln;
write('Bitte geben sie den Verkaufspreis ein: ');
readln(Verkaufspreis);
If Verkaufspreis >= 20000
Then
Verkaufspreis := Verkaufspreis - (Verkaufspreis * 5 / 100);
If Verkaufspreis >= 50000
Then
Verkaufspreis := Verkaufspreis - (Verkaufspreis * 10 / 100);
If Verkaufspreis >= 100000
Then
Verkaufspreis := Verkaufspreis - (Verkaufspreis * 125 / 1000);
write('Der Verkaufspreis abzueglich Rabatt betraegt',Verkaufspreis:10:2,'.');
Readln;
End.
[edit=sakura]Delphi Tags eingefügt[/edit]