Wenn dann sonst Funktion Frage

[Dooly]

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]

[sakura]

& herzlich Willkommen,

dein Problem ist recht einfach gelöst - Du hast mehrfach Rabatt gewährt ab >50000...

Code:

  If Verkaufspreis >= 20000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  5 / 100)
  [color=#ff0008]ELSE[/color] If Verkaufspreis >= 50000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  10 / 100)
  [color=#ff0008]ELSE[/color] If Verkaufspreis >= 100000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  125 / 1000);

Viel Erfolg

[Christian Seehase]

Moin Zusammen,

@Dooly:
auch von mir erst einmal ein herzliches Willkommen.

@sakura:
fast, so ganz haut das aber nicht hin
Die Preise müssen absteigend geprüft werden.

Delphi-Quellcode:

If Verkaufspreis >= 100000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  125 / 1000) 
  ELSE If Verkaufspreis >= 50000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  10 / 100) 
  ELSE If Verkaufspreis >= 20000 Then 
      Verkaufspreis := Verkaufspreis - (Verkaufspreis *  5 / 100);

Würde man das nicht machen, würde immer der 20000er Rabatt gerechnet werden, da ja auch Werte >= 50000 gleichzeitig auch >= 20000 sind usw.

[sakura]

Es war einfach schon zu spät

...:deadcat:...