Schriftliche Division

[gfjs]

Vorschlag eines Anfängers (Pseudocode):

Aufgabe: x := a/b;

a,b,x : Double;
aInt,bInt,Rest, : Integer;
aStr,a1Str,a2Str,bStr,xStr : string;
n : integer (Anzahl der gewünschten Nachkommastellen des Ergebnisses)

aStr := FloatToStr(a); bStr := Float to Str(b);
Nachkommastellen von b ermitteln und in aStr den Dezimalpunkt um die entsprechenden Stellen nach rechts verschieben (evtl. mit Nullen auffüllen)
aStr aufteilen in a1Str(=Vorkomma-Anteil) und a2Str(=Nachkomma-Anteil)
aInt := IntToStr(a1String); bInt := IntToStr(bStr);
xStr := IntToStr(aInt DIV bInt) + '.'; // ergibt den ganzzahligen Anteil von x
Rest := aInt MOD bInt;
zum Rest solange die nächste Nachkommastelle (aus a2Str) bzw. eine Null anhängen, bis Rest DIV bInt > 0, Ergebis an xStr anhängen
und das ganze wieder von vorne, bis die gewünschte Zahl der Nachkommastellen von x erreicht ist.

Das sollte klappen - ich kann's aber nicht ausprobieren, da ich im Büro kein Delphi installiert habe.

mfg gfjs