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;