|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.168 Beiträge
Delphi 12 Athens
|
AW: Betrag auszahlbar?
29. Jun 2011, 11:42
Delphi-Quellcode:
//while Geld >= 100 do Dec(Geld, 100);
while (Geld >= 50) and (Geld <> 60) do Dec(Geld, 50);
while Geld >= 20 do Dec(Geld, 20);
Result = Geld = 0;
Ansonsten  Rucksackproblem
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
|