Verschachtelte Algorhytmen

[JuPi2904]

Es funktioniert...
Echt noch mal danke für eure Hilfe und danke für den Hinweis.
Dieses Forum ist echt zu empfehlen, schon mein 2. problem wurde gelöst. Ihr seid echt spitze!!!

Der Quelltext lautet:

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;

[Sir Rufo]

Bitte benutze zum Posten von Delphi-Quelltext die Delphi-Tags (sieht dann so aus)

Delphi-Quellcode:

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;

und nicht die "B"rüll-Tags

Zitat von JuPi2904:

Es funktioniert...
Echt noch mal danke für eure Hilfe und danke für den Hinweis.
Dieses Forum ist echt zu empfehlen, schon mein 2. problem wurde gelöst. Ihr seid echt spitze!!!

Der Quelltext lautet:

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;

Zitat von 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.

Wurde auch schon erwähnt, das deine Art sehr unübersichtlich und dadurch fehleranfällig ist