FMod "streikt"

[Johann Steiner]

Liebe Delphianer,


ich möchte mit der Funktion FMod (System.Math) eine ca 150-stellige Zahl zerlegen.
Leider steigt die Funktion bei Zahlenwerten um ca x^20 aus mit der Meldung "Ungültige Gleitkommaoperation".
Laut Hilfe sollte die Funktion Extended-Bereiche beherrschen!

Was kann ich machen, was mache ich falsch?

PS: Delphi-Version: DX 10.2 Starter Edition

[himitsu]

Extended war nie für den produktiven Einsatz gedacht, sondern nur zur FPU-internen Verwendung.
Ab Windows 64 Bit gibt es diesen Typ auch nicht mehr "nativ" im Delphi.

Und Extended hat auch nur 19-20 "signifikante" Dezimalstellen ... mehr ist einfach nicht möglich und alles außerhalb dieser Stellen ist "undefiniert".

12345678901234567890xxxxxxxxxxxxxxxxxx,xxxxxxxx
123456789012,34567890xxxxxxxxxxxxxxxxxxxxxxxxxx
0,00000000000012345678901234567890xxxxxxxxxxx


Einzige Lösung
* String
* BCD
* BigInt und Co.

[gammatester]

fmod crasht auch bei double. Ich vermute, daß EMBA intern floor oder trunc verwendet, und die crashen halt wenn der Integerbereich übertreten wird (habe auch Starter ohne Quellcode).

Mit int hat man solche Probleme nicht (ob solche Rechnungen sinnvoll sind, ist eine andere Frage)

Delphi-Quellcode:

var
  x,y,z: double;
begin
  try
  x := 1.23e150;
  y := 2e20;
  z := int(x/y);
  z := x-z*y;
  writeln(z);
  z := fmod(x,y);
  writeln(z);
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[mensch72]

150 Stellen... das über Fließkomma zu machen ist der falsche Weg, selbst wenn es ginge.

da gibt es Leute die haben genau dafür was passendes gemacht, und bieten es ganz unten auf der Seite sogar recht aktuell zum Download an:)
http://www.delphiforfun.org/Programs...g_integers.htm

[himitsu]

Zitat:

Delphi-Quellcode:

function FMod(const ANumerator, ADenominator: Extended): Extended;
begin
  Result := ANumerator - Trunc(ANumerator / ADenominator) * ADenominator;
end;

:stupid:

[gammatester]

Zitat:

Zitat von mensch72 (Beitrag 1375311)

150 Stellen... das über Fließkomma zu machen ist der falsche Weg, selbst wenn es ginge.

Das ist ja nicht das Problem. fmod hat nicht zu crashen, das ist mit Vorbehalt ein Delphi-Bug, da EMBA zumindest in der Hilfe keine Beschränkung erwähnt (ein Crash wäre OK, wenn der Quotient einen Overflow ergäbe).

Wenn man große Integer-Zahlen bearbeitet will, kann man mein http://www.wolfgang-ehrhardt.de/misc_de.html#mparith benutzen.

Edit: Dank an himitsu, der meine Vermutung bestätigt.

[himitsu]

Zitat:

Zitat von gammatester (Beitrag 1375309)

ob solche Rechnungen sinnvoll sind, ist eine andere Frage

Ich kann dir die Lösung sogar aus dem Kopf nennen, wenn ich alle "ungültigen" Dezimalstellen wegrunde.
1.23e150 fmod 2e20 = 0

[Johann Steiner]

Herzlichen Dank an alle!
Habt mir sehr geholfen.

[sko1]

Nebenfrage:

Wozu benötigt man eine 150 stellige Zahl?

Ciao
Stefan

[Jasocul]

Zitat:

Zitat von sko1 (Beitrag 1375321)

Wozu benötigt man eine 150 stellige Zahl?

Zum Beispiel bei der Primzahlberechnung
Gibt sicher noch mehr Beispiele. Was in diesem Thread der Grund ist, weiß ich allerdings auch nicht. :wink: