münzrückgabe(HA)

[SirThornberry]

du musst schauen wie oft das größte Geldeinheit in den Betrag rein passt.

Hast du zum Beispiel 1,90
so passt 2 Euro 0 mal rein
übrig bleiben dan 1,90 Euro
1,90 Euro durch 1 Euro ergibt 1
Also 1 mal 1 Euro rest 90 Cent
90 Cent durch 50 Cent = 1 Rest 40 Cent
40 Cent durch 20 Cent = 2 Rest 0 Cent - jetzt braucht nicht weiter gesplittet werden.

Quelltextmäßig würde es so aussehen

Delphi-Quellcode:

money := 190;

two_euro_pieces = money div 200;
money := money - two_euro_pieces * 200;

one_euro_pieces = money div 100;
money := money - one_euro_pieces * 100;