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