Rest berechnen von Extended-Werten und Quadratzahlzerlegung

[Patrik Huebner]

Hi!<p>

Ich habe zwei Fragen:<p>

a) Wie berechne ich den Rest von Extended-Zahlen. Ich will bzw. kann die MOD-Operation nicht anwenden, da ich nicht mit Integer-Werten sondern eben mit Extended-Werten arbeite.<p>

b) Wie zerlege ich in Delphi eine Quadratwurzel.<p>

Vorschläge oder sogar ganze Prozeduren bzw. Funktionen sind sehr willkommen... ;-)<p>

Gruß,<br>
Patrik Hübner<p>

eMail: [email protected]<br>
Web: http://www.aft-online.de

[Hagen Reddmann]

Hi Pattrik

Die MOD Operation ist generell:

Rest := A - (Trunc(A / B) * B); // ganzzahl Rest A

Den Ganzzahl Anteil eines Float (Extended, Double etc) Wertes bekommst Du mit Trunc() und den Fractional Part (gebrochenen Anteil) mit Frac().

2.0 = Trunc(2.5); // Ganzzahl part

0.5 = Frac(2.5); // Fractional part

Was Du mit der Zerlegung einer Quadratwurzel meinst müsstest Du schon genauer erklären.

Gruß Hage

[Thomas Melchert]

<p>Hallo Patrik,<br>
<br>
wie Du den Rest von Extended-Zahlen bekommst, hat Dir schon Hagen ausführlich erklärt.<br>
<br>
Nun zu Deinem Problem mit der Quadratwurzel:<br>
In Delphi kannst Du die Quadratwurzel mit der Funtion <b>Sqrt</b> ziehen.<br>
Für andere Wurzeln z.b. 3. Wurzel aus 8, musst Du eine eigene Funktion schreiben.<br>
<br>
<b>function</b> XteWurzel(Wurzel, Zahl:Integer):Extended;<br>
<b>begin</b><br>
Result:=Exp(1/Wurzel*Ln(Zahl));<br>
<b>end;</b><br>
<br>
Ich hoffe, ich konnte helfen.<br>
<br>
Gruß Thomas</p&gt

[Dietmar Elsässer]

Oder man benutzt die function power aus der unit math.<br>
z.B. Dritte Wurzel aus 8: power(8, 1/3