Rest einer Division durch Rekursion

[Uwe Raabe]

Zitat von Die absoulte Beginnerin:

if divident>=divisor
then reku_div(divident-divisor,divident)
else ergebnis:=divident;
...
das klappt dann aber leider irgendwie nicht...

Beim rekursiven Aufruf muss der zweite Parameter der Divisor sein!

Delphi-Quellcode:

if divident>=divisor
 then reku_div(divident-divisor,divisor)
 else ergebnis:=divident;