13 lines
217 B
Text
13 lines
217 B
Text
|
decimals(12)
|
||
|
|
see "cube root of 5 is : " + root(3, 5, 0) + nl
|
||
|
|
|
||
|
|
func root n, a, d
|
||
|
|
y = 0 x = a / n
|
||
|
|
while fabs (x - y) > d
|
||
|
|
y = ((n - 1)*x + a/pow(x,(n-1))) / n
|
||
|
|
temp = x
|
||
|
|
x = y
|
||
|
|
y = temp
|
||
|
|
end
|
||
|
|
return x
|