Aber wenn das Ergebnis eine ganze Zahl ist, stimmt es nach Deinem Schleifendurchlauf doch nicht, da ja in jedem Fall 0,000001 dazuaddiert werden. Ich fürchte, Du wirst da schon mit 2 Schleifen arbeiten müssen.
Delphi-Quellcode:
function krechnungen.dividieren(x,y: extended): extended;
begin
Result := 0;
while x > y do
begin
Result := Result + 1;
x := x - y;
end;
Somit hast Du zumindest schon den Vorkommaanteil. Sollte x > 0 sein, müsstest Du nun noch den Nachkommaanteil berechnen, ansonsten wärst Du fertig und das Ergebnis würde stimmen.