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;