Betrag auszahlbar?

[himitsu]

Zitat:

Nein, es wird angenommen, dass immer unendlich viele Scheine in der Kasse sind (leider nur eine Annahme ).

3 While-Schleifen.

Erstmal so viele wie mögliche 100er abziehen,
dann die 50er und dann noch die 20er.

Wenn am Ende 0 übrig bleibt, dann kann man das auszahlen.

PS: Da man 100er auch mit 50ern ausgeben kann, könnte man sich die Prüfung auf 100er auch gleich sparen.
Bleiben also noch 2 Schleifen und ein IF, bzw. als Funktion verbaut gleich das IF als Result:= .

[Nersgatt]

Das ist ja praktisch meine erste Idee gewesen. Schlägt aber bei 60 EUR fehl.

60 - 0x100 = 60
60 - 1x50 = 10
10 - ??? (kein Schein mehr gefunden).

[himitsu]

Ups, dann halt noch eine 60er-Schleife mit rein und schon geht es.
-60 -50 -20 = 0

[Deep-Sea]

Zitat von himitsu:

Ups, dann halt noch eine 60er-Schleife mit rein und schon geht es.

Und für 100 gibt er dann 1x 60 und 2x 20, also 5x 20 raus, anstatt 2x 50 (sofern wir die 100er mal beiseite lassen)?

[himitsu]

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

[Sailor]

Gurgele mal nach dem Stichwort "Stückelung Geld"
oder sieh unter "http://www.excelformeln.de/formeln.html?welcher=338"
nach

[Woyzeck]

Oder Stichwort "dynamische Programmierung".

Sollte auch für dieses Problem eine vernünftige Lösung liefern.