12 lines
217 B
Text
12 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
|