fakultätsproblem

RedHead

hi leute....
ich habe mir hier im forum mehrere beiträge zum thema fakultät gelesen und viele programme waren "recht komplex"...dabei ist es doch "eigentlich ganz einfach"
ich habe mir ein script geschrieben das ebenfalls die fakultät berechnet

[autoit]

Func fakultaet($i_zahl)
If $i_zahl > 1 Then
Return $i_zahl * fakultaet($i_zahl - 1)
Else
Return 1
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

MsgBox(0, "", fakultaet(20))

[/autoit]

allerdings wird aber eine bestimmten zahl am ende eine negative zahl ausgegeben und aber 65 wird nur noch null zurück gegeben...weiß einer vielleicht warum? ich komme nicht drauf

**peethebee**

Das ist ein gutes Beispiel, an dem du ein bisschen was lesen kannst :).

Links für dich:
http://de.wikipedia.org/wiki/Rekursion…mit_Rekursionen, auch http://de.wikipedia.org/wiki/Rekursive_Programmierung
http://de.wikipedia.org/wiki/Integer_overflow

Johannes

RedHead

Zitat von peethebee

Das ist ein gutes Beispiel, an dem du ein bisschen was lesen kannst :).

Links für dich:
http://de.wikipedia.org/wiki/Rekursion#P…mit_Rekursionen, auch http://de.wikipedia.org/wiki/Rekursive_Programmierung
http://de.wikipedia.org/wiki/Integer_overflow

Johannes

danke die links helfen mit weiter

x0r

Hi,

also ich hätte es per "for next" gelöst, statt mit Rekursion

[autoit]

MsgBox(0,"",fakultaet(20))

[/autoit][autoit][/autoit][autoit]

func fakultaet($x)
local $i, $res
$res = 1
for $i = 1 to $x
$res = $res * $i
Next
return $res
EndFunc

[/autoit]

Gruß
x0r

James · AutoIt Version (Prod): 3.3.14.2

Ich versteh' nicht ganz, wieso man sowas überhaupt mir Rekursion lösen sollte...
Edit: x0r war schneller. x0r der Meinung bin ich auch.

Spoiler anzeigen

[autoit]

ConsoleWrite(fact(20) & @LF)
Func fact($Number)
Local $Result = 1, $i
For $i = Int($Number) To 2 Step -1
$Result *= $i
Next
Return $Result
EndFunc

[/autoit]

RedHead

Zitat von x0r

Hi,

also ich hätte es per "for next" gelöst, statt mit Rekursion

MsgBox(0,"",fakultaet(20))

func fakultaet($x)
local $i, $res
$res = 1
for $i = 1 to $x
$res = $res * $i
Next
return $res
EndFunc

Gruß
x0r

Alles anzeigen

auf diese möglichkeit bin ich auch schon gekommen aber wenn ich eine zahl einsetzte die größer ist als 65 wird auch hier wieder ein 0 zurück gegeben

James · AutoIt Version (Prod): 3.3.14.2

http://www.autoitscript.com/forum/topic/83529-bignum-udf/
Fakultät bis unendlich

x0r

Hi,

liegt dran, dass Integer nicht mehr darstellen kann (vermute ich mal!)

Denn:

[autoit]

MsgBox(0,"",test(10000000000000000))

[/autoit][autoit][/autoit][autoit]

func test($i)
return $i * $i
EndFunc

[/autoit]

hier kommt auch was negatives raus

name22

Das liegt wohl daran. AutoIt verwendet (glaube ich) 32-bit signed integer. Dadurch ist das erste Bit für das Vorzeichen reserviert und man kann maximal Zahlen von −2.147.483.648 bis 2.147.483.648 speichern. Was bei 10000000000000000 genau passiert weiß ich nicht. Die Bignum UDF in James Post hat aber diese Probleme nicht.

James · AutoIt Version (Prod): 3.3.14.2

Zitat von name22

Was bei 10000000000000000 genau passiert weiß ich nicht.

Wenn man die 10000000000000000 in Binär umwandelt und die letzten ersten 32 Bit nimmt, erhällt man die eigentliche Zahl, da für AutoIt der ganze Rest gar nicht mehr dazugehört.

Code

100011100001101111001001101111110000010000000000111111
--> 01101111110000010000000000111111 = 1874919487

James · AutoIt Version (Prod): 3.3.14.2

name22 Ok, dann hat mein Post am Anfang sogar gestimmt, ich gehe jetzt einfach mal davon aus, dass deine Zahl passt und meine falsch ist.

Marthog

Zitat von name22

Das liegt wohl daran. AutoIt verwendet (glaube ich) 32-bit signed integer. Dadurch ist das erste Bit für das Vorzeichen reserviert und man kann maximal Zahlen von −2.147.483.648 bis 2.147.483.648 speichern. Was bei 10000000000000000 genau passiert weiß ich nicht. Die Bignum UDF in James Post hat aber diese Probleme nicht.

Nein. AutoIt verwendet die größten Grenzen, die Microsoft Visual C++ zulässt. Das sind 64-bit Integer und 64-bit Floats.

10000000000000000*10000000000000000 hat aber 107 bits.

name22

Meine Binärzahl war vermutlich richtig, aber ich hab trotzdem blödsinn gerechnet. Auf jedenfall sind die Zahlen zu groß, und die Bignum UDF muss ran.
Edit:

Zitat

Nein. AutoIt verwendet die größten Grenzen, die Microsoft Visual C++ zulässt. Das sind 64-bit Integer und 64-bit Floats

Ah, okay das wusste ich nicht. Dann kommt bei 10000000000000000 ^ 2 eine Zahl größer als es die 64-Bit zulassen raus, und der Rest hat zufällig eine 1 als erstes Bit, wenn da wirklich was negatives rauskommt wie x0r sagt.

N0THING

Ich hätte einfach ein .0 ergänzt in der Rekursion-Variante.

Spoiler anzeigen

[autoit]

Func fakultaet($i_zahl)
If $i_zahl > 1 Then
Return $i_zahl * fakultaet($i_zahl - 1)
Else
Return 1
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "", fakultaet(20.0))

[/autoit]

Marthog

Zitat von N0THING

Ich hätte einfach ein .0 ergänzt in der Rekursion-Variante.

Dann rechnet man mit Floats. Für das Ergebnis ist das egal.