27 lines
599 B
Plaintext
27 lines
599 B
Plaintext
;AutoIt Version: 3.2.10.0
|
|
$A=4913
|
|
$n=3
|
|
$x=20
|
|
ConsoleWrite ($n& " root of "& $A & " is " &nth_root_it($A,$n,$x))
|
|
ConsoleWrite ($n& " root of "& $A & " is " &nth_root_rec($A,$n,$x))
|
|
|
|
;Iterative
|
|
Func nth_root_it($A,$n,$x)
|
|
$x0="0"
|
|
While StringCompare(string($x0),string($x))
|
|
ConsoleWrite ($x&@CRLF)
|
|
$x0=$x
|
|
$x=((($n-1)*$x)+($A/$x^($n-1)))/$n
|
|
WEnd
|
|
Return $x
|
|
EndFunc
|
|
|
|
;Recursive
|
|
Func nth_root_rec($A,$n,$x)
|
|
ConsoleWrite ($x&@CRLF)
|
|
If $x==((($n-1)*$x)+($A/$x^($n-1)))/$n Then
|
|
Return $x
|
|
EndIf
|
|
Return nth_root_rec($A,$n,((($n-1)*$x)+($A/$x^($n-1)))/$n)
|
|
EndFunc
|