PRINT
PRINT "ニュートン法による立方根の近似値"
PRINT 
INPUT PROMPT "立方根を求めたい数？":a
LET x1=a
LET xx=0
LET k=0
DO
   LET k=k+1
   LET x2=(2*x1+a/x1^2)/3
   IF xx=x2 THEN EXIT DO
   LET xx=x2
   LET x1=x2
   PRINT "k=";k;" ";x2
LOOP
PRINT "k=";k;" ";x2;"  ( ← これがこのプログラムの結果です。）"
PRINT
PRINT a;"の立方根 ≒";a^(1/3);" ←（";a;"^(1/3) ）"
PRINT
PRINT a;"≒";x2^3;" ←（";x2;"^ 3 ）"
PRINT 
END