PRINT
PRINT "挟撃法（二分法）で 立方根を求める"
PRINT 
INPUT PROMPT "立方根を求めたい数？ ":a
DEF f=X^3-a
LET x=0
LET y=a
LET k=O
DO
   LET k=k+1
   PRINT USING "##":k;
   PRINT ": ";
   PRINT ROUND(x,13),ROUND(y,13)
   IF ROUND(x,13)=ROUND(y,13) THEN EXIT DO
   LET z=(x+y)/2
   LET w=z^3-a
   IF w<0 THEN LET x=z
   IF w>=0 THEN LET y=z
LOOP
PRINT
PRINT a;"の立方根は、およそ";ROUND(x,13);"です。"
PRINT
PRINT a;"≒";ROUND(x,13)^3;"＝";ROUND(x,13);"^ 3"
PRINT
END