Hallo liebes Delphi-Praxis Team,
in der Schule sollen wir ein Programm schreiben, welches einen Eurobetrag einliest
und dem Nutzer dann anzeigt, wieviel Scheine und Münzen mindestens benötigt werden, um
die eingegebene Summe zu erreichen. Soweit so gut. Ich habe das ganze versucht mit while-
Schleifen umzusetzen (x sind die Scheine, y die Münzen, b der Geldbetrag):
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
begin
b:= StrToFloat(edit1.Text);
x:= 0;
y:= 0;
WHILE b>=500 DO BEGIN
x:= x+1;
b:=b-500;
END;
WHILE b>=200 DO BEGIN
x:= x+1;
b:=b-200;
END;
WHILE b>=100 DO BEGIN
x:= x+1;
b:=b-100;
END;
WHILE b>=50 DO BEGIN
x:= x+1;
b:=b-50;
END;
WHILE b>=20 DO BEGIN
x:= x+1;
b:=b-20;
END;
WHILE b>=10 DO BEGIN
x:= x+1;
b:=b-10;
END;
WHILE b>=5 DO BEGIN
x:= x+1;
b:=b-5;
END;
WHILE b>=2 DO BEGIN
y:= y+1;
b:=b-2;
END;
WHILE b>=1 DO BEGIN
y:= y+1;
b:=b-1;
END;
WHILE b>=0.5 DO
BEGIN
y:= y+1;
b:=b-0.5;
END;
WHILE b>=0.2 DO BEGIN
y:= y+1;
b:=b-0.2;
END;
WHILE b>=0.1 DO BEGIN
y:= y+1;
b:=b-0.1;
END;
WHILE b>=0.05 DO BEGIN
y:= y+1;
b:=b-0.05;
END;
WHILE b>=0.02 DO BEGIN
y:= y+1;
b:=b-0.02;
END;
WHILE b>=0.01 DO BEGIN
y:= y+1;
b:=b-0.01;
END;
edit2.Text:= FloatToStr(x);
edit3.Text:= FloatToStr(y);
end;
end.
Das Programm an sich läuft ganz gut. Mein einziges Problem liegt darin, dass bei manchen
Beträgen die Anzeige der benötigten Münzen nicht stimmt und meist zu wenig sind (z.B. bei 3,01; 3,56; 23,56).
Ich weiß aber absolut nicht woran es liegt. Meistens funktioniert es ja. Besonders auffällig
ist, dass solche Fehler eben bei 3,xx auftreten oder x3,xx, was mich zunächst vermuten ließ, dass
es an den Abschnitten, in denen 1€ und 2€ Beträge behandelt werden, liegt, bzw. auch 1ct Beträge.
So wird bei der eingabe 0,01€ auch angezeigt, dass 0 Münzen benötigt werden. Aber warum?
Ich hoffe, ihr könnt einem Anfänger weiterhelfen. Ich bin natürlich auch offen für while-Alternativen.
Trotzdem hätte ich gern gewusst, wo mein Fehler liegt
Liebe Grüße
das verzweifelte Giertier ^^