Verschachtelte Algorhytmen

[Sir Rufo]

Statt (mal abgesehen von den formalen Fehlern)

Delphi-Quellcode:

rabatt:=0;

if 0<=stuck<100 then rabatt:=0
if 100<=stuck<500 then rabatt:=0.05
if 500<=stuck<=1000 then rabatt:=0.10
if 1000<=stuck<=1500 then rabatt:=0.15
if 1500<=stuck<2000 then rabatt:=0.20
if 2000<=stuck then rabatt:=0.30;

besser umgedreht abfragen

Delphi-Quellcode:

if stuck >= 2000 then Rabatt := 0.30
else if stuck >= 1500 then Rabatt := 0.20
else if stuck >= 1000 then Rabatt := 0.15
else if stuck >=   500 then Rabatt := 0.10
else if stuck >=   100 then Rabatt := 0.05
else Rabatt := 0;

weniger tippen, besser lesen

[Luckie]

Und noch schöner wird es mit case.

[BUG]

Zitat von Luckie:

Und noch schöner wird es mit case.

Da bin ich ja gespannt ... dir ist schon aufgefallen, dass das Ungleichungen sind?

[Luckie]

Wenn man das hat: if 100<=stuck<500 then kann man doch das case 100..500 of daraus machen. Es handelt sich doch um einen Bereich. Oder was habe ich jetzt übersehen?

[Sir Rufo]

öh du meist wohl eher 100..499

[Luckie]

Kleinigkeiten! Dafür sind die Programmierer zuständig.

[BUG]

@Luckie: Sorry, diese Möglichkeit habe ich total vergessen gehabt.

[Sir Rufo]

Und trotz allem ist das Case hier schlechter wartbar, da immer an 2 Stellen Änderungen erforderlich wären.

[Luckie]

@BUG: Keine Ursache. Aber du hast es doch geschafft mich zumindest kurz zu verunsichern.
@My Lord: Aber ich finde es übersichtlicher, weil man den Bereich sofort sieht.

[JuPi2904]

So ich bedanke mich ersteinaml für alle Antworten.
Um noch mal ein paar Fragen zu beantworten, ich will keinen fertigen Quelltext, sondern ich möchte die Struktur wissen, wie man so etwas generell programmiert.
Ich habe jetzt mal die Variante mit "and" probiert, wo allerdings ein Fehler aufgetreten ist: [Fehler] Unit1.pas(61): Operator ist auf diesen Operandentyp nicht anwendbar

Wenn ich dann ein "else" davor setze treten noch andere Fehler auf und mit der variante "case", die kenne ich leider noch nicht und weiß nicht wie ich sie umsetzen soll.

Hier mein Quelltext:

if 0<=stuck and stuck<100 then rabatt:=0;
if 100<=stuck and stuck<500 then rabatt:=0.05;
if 500<=stuck and stuck<=1000 then rabatt:=0.10;
if 1000<=stuck and stuck<=1500 then rabatt:=0.15 ;
if 1500<=stuck and stuck<2000 then rabatt:=0.20 ;
if 2000<=stuck then rabatt:=0.30;

Würde mich um eure Hilfe sehr freuen.
Mfg JuPi.