1 REM https://rosettacode.org/wiki/Nth_root 10 LET a = INT(RND * 5999) + 2 20 PRINT "nth root of "; a; "..." 30 FOR n = 1 TO 10 40 LET p = .00001 50 LET x = a 60 LET y = a / n 70 IF ABS(x - y) <= p THEN 110 80 LET x = y 90 LET y = ((n - 1) * y + a / y ^ (n - 1)) / n 100 IF ABS(x - y) > p THEN 80 110 PRINT n; " : "; y 120 NEXT n Return to Example Index