"Ungültige Gleitkommaoperation"

[TheAn00bis]

Folgende Berechnung ruft immer den Fehler "Ungültige Gleitkommaoperation" auf, allerdings nicht beim Umwandeln in die *.exe, sondern wenn ich im ausgeführten Programm den Button drücke, der die Funktion ausführt.

zahl:=trunc(power(zahl, e)) mod n; Zahl und e sind Integer, der Integer scheint nicht überlaufen zu sein, da auch unter Verwendung von "LongInt" der Fehler angezeigt wird. Kann nur an dem geschriebenen Code liegen, da ohne ihn alles Funktioniert (nur zahl ist dann falsch )

edit: code war falsch, jetzt richtig/2: Klammer war flasch ://

[Muetze1]

Moin!

Integer und LongInt sind gleich gross, daher nutze mal Int64...

MfG
Muetze1

[TheAn00bis]

Danke, komisch das die das dann LONGint nennen...

Leider kein Unterschied. Aber da ist doch nichts falsch oder? Denn mod funktioniert nur mit Integern, power liefert extended, was aber durch trunc wieder zu integer wird -> müsste gehen. Oder?

EDIT: Es geht, wenn ich statt power die potenz ausschreibe also zahl*zahl*zahl...
Was läuft bei dem power/trunc denn falsch?

[Muetze1]

Moin!

Dir ist klar, das du Zahl^e rechnest und nicht e^Zahl? Weil wie willst du denn Zahl^e mit Zahl*Zahl hinbekommen?

MfG
Muetze1

[Binärbaum]

Zitat von Muetze1:

Dir ist klar, das du Zahl^e rechnest und nicht e^Zahl? Weil wie willst du denn Zahl^e mit Zahl*Zahl hinbekommen?

Er hat doch gesagt, dass e ein Integer ist (also ist es nicht die eulersche Zahl( ca. 2.7182818... ))
Es ist ja klar, wie man Zahl^e dann hinbekommt, oder?

MfG
Binärbaum

[TheAn00bis]

Zahl sollte die Basis sein und e der Exponent, im Übrigen hab ich es auch mal umgedreht und der gleiche Fehler erscheint.

Ich kann doch statt zahl^e auch for z:=0 TO e-2 do zahl:=zahl*zahl; schreiben, oder nicht?

Edit: Nein, ist nicht die eulersche Zahl, ich versuche die RSA Entschlüßelung hinzubekommen...

[Binärbaum]

Zitat von TheAn00bis:

Ich kann doch statt zahl^e auch for z:=0 TO e-2 do zahl:=zahl*zahl; schreiben, oder nicht?

Nein, so geht dass geht so nicht. Wenn schon, dann so:

Delphi-Quellcode:

var prod: Integer;
...
prod:= 1;
for z:=1 TO e do prod:= prod*zahl;
zahl:= prod;

//Edit: Schreibfehler

[TheAn00bis]

Danke, Binärbaum!

Ich denke ich weiß woran es liegt: power(10,77)=1E77 das kann er wahrscheinlich mit trunc nicht umrechnen. Wie rechne ich 1E77 denn in eine Dezimalzahl um?

[Binärbaum]

Zitat von TheAn00bis:

Danke, Binärbaum!

Ich denke ich weiß woran es liegt: power(10,77)=1E77 das kann er wahrscheinlich mit trunc nicht umrechnen. Wie rechne ich 1E77 denn in eine Dezimalzahl um?

1E77 ist einfach eine 1 gefolgt von 77 Nullen. Das kann allerdings kein LongInt oder Int64 mehr darstellen (deshalb kommt wohl auch der Fehler), denn um diese Zahl zu speichern, bräuchte man 256 Bit, Int64 hat nur 64.
Deshalb musst du Double oder Extended verwenden. Die können solch große Zahlen noch darstellen.

MfG
Binärbaum

[TheAn00bis]

Danke und gibt es auch noch eine Möglichkeit mit Double oder Extended mod (modulo) zu verwenden? Muss ich mir die Funktion jetzt selber schreiben?