Zitat von
blink182:
hiho
machs halt mit schleifen
Delphi-Quellcode:
while rueckgeld >=100 do
begin
edit100.text:=inttostr(strtoint(edit100)-1);
rueckgeld:=rueckgeld-100;
end
while rueckgeld >=50 do
begin
edit50.text:=inttostr(strtoint(edit50)-1);
rueckgeld:=rueckgeld-50;
end;
...
und später kannst du dann Wechselgeld neuberechnen
wechselgeld:=100*strtoint(edit100.text)+50*stroint(edit50.text)... Guten Morgen,
mit diesem Beispiel erschlägst Du nicht das Problem (hat Matze schon gesagt) wenn
von dem Wechselgeld nicht mehr genügend Schein/Münzen einer Sorte vorhanden sind.
Dann müßen die "nicht vorhandenen" großen Scheine/Münzen durch kleinere ersetzt werden.
Auch kann man anstelle der While Schleifen
den Operator
div benutzen um die Anzahl einer gewissen Sorte an Scheinen/Münzen zu ermitteln.
Grüße
Klaus