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.