Verschachtelte Algorhytmen

[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.

[Deep-Sea]

Zitat:

Zitat von JuPi2904 (Beitrag 1083627)

Ich habe jetzt mal die Variante mit "and" probiert, wo allerdings ein Fehler aufgetreten ist [...]

Entweder du nutzt die zweite Variante aus Post #6 von Sir Rufo oder du schaust dir das Post #2 von himitsu noch einmal genauer an, dann wirst du feststellen, dass du Klammern und else-Anweisungen vergessen hast.

[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!!! :thumb:

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:

Zitat von JuPi2904 (Beitrag 1083635)

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!!! :thumb:

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:

Zitat von JuPi2904 (Beitrag 1083627)

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