|
Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
Delphi 2006 Professional
|
Re: Schriftliche Division
5. Jan 2006, 13:54
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
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
|