Verschachtelte Algorhytmen

[JuPi2904]

Hallo Forum Mitglieder,
ich brauche euren Rat in verschachtelten Algorhytmen. Wir haben in der Schule als Hausaufgabe aufbekommen, einen Rabbatrechner zu programmieren, der in einem bestimmten Intervall von der Stückanzahl (Bsp.: von 100 bis 500 Stück - 5%Rabatt). Leider fehlt mir dazu ein Quelltext, wie ich das machen soll.
Bitte helft mir.
Schon mal Danke im voraus JuPi:

hier der Quelltext:

procedure TForm1.Button1Click(Sender: TObject);
var stuck, preis, zsumme, rabatt, rsumme, endsumme : Real;
begin
stuck:=StrToFloat(Edit1.Text);
preis:=StrToFloat(Edit2.Text);

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;

zsumme:=stuck*preis;
rsumme:=zsumme*rabatt;
endsumme:=zsumme-rsumme;

Edit3.Text:=FloatToStr(zsumme);
Edit4.Text:=FloatToStr(rabatt);
Edit5.text:=FloatToStr(rsumme);
Edit6.Text:=FloatToStr(endsumme);


end;

end.

[himitsu]

Zitat:

Bitte helft mir.

Um zu helfen fehlt uns eine Fehlerbeschreibung, wenn wir nicht wissen was nicht geht, können wir auch nicht helfen das zu beheben.

Ansonsten schonmal ein paar Kleinigkeiten:

Für Quelltexte gibt es hier passende Code-Tags, wie z.B. [delphi] (der Button mit dem roten Delphi-Helm).

Zitat:

if 0<=stuck<100 then rabatt:=0

if (0 <= stuck) and (stuck < 100) then rabatt:=0 .
dann fehlen in dem Code einige ; oder ein paar else .

[Luckie]

Zitat von JuPi2904:

Leider fehlt mir dazu ein Quelltext,

Da ist doch die Fehlerbeschreibung.

[hans ditter]

Versteh ich als Aufforderung einen fertigen Quelltext hier abzuliefern... und das verstösst hier mindestens gegen die Grundeinstellung.
Ansonsten konnte ich das Problem auch nicht ganz erkennen, ausser dass er keinen Quelltext zu seinem Programm hat.
Auch der Sinn des Programms entzieht sich meiner Logik. Wenn ich das richitg vestanden hab, dann soll er ein Programm entwerfen, dass in einem Intervall I von einer steigenden Gesamtmenge einen konstanten Rabatt R abziehen soll.
Was jedoch der Code-Snippet mit dem Ganzen zu tun hat... auch nicht in meinem Verständnisbereich...:

EDIT:
Ah... mir ist glaub ich grad ein Licht aufgegangen!!
Er setzt vorher über die Gesamtmenge den Rabatt fest und rechnet dann den Rabatt runter...

Aber wo ist dann dein Problem? Du hast dann doch schon den Quelltext?!

LG, hans ditter

[Bummi]

ich denke hier fehlen nur ein AND und ein Semikolon, bzw. ein else

Code:

if 500<=stuck<=1000 then rabatt:=0.10

-->
if 500<=stuck and stuck<=1000 then rabatt:=0.10; oder

Delphi-Quellcode:

if 500<=stuck and stuck<=1000 then rabatt:=0.10 
ELSE if ....

[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