REM 方程式の解の近似(セカント法)
LET x0=4
LET x1=3
DEF f(x)=x^2-5
FOR k=1 TO 20
   IF f(x1)-f(x0)<>0 THEN
      LET x=x1-f(x1)*(x1-x0)/(f(x1)-f(x0))
      LET x0=x1
      LET x1=x
   else
      exit for
   END if
NEXT k
PRINT x
PRINT sqr(5)
END
--------------------------------------------------------
REM Maclaurin(root)
INPUT PROMPT "n=":n
LET x=16/484
LET root=1
LET b=1/2
LET a=1
FOR k=1 TO n
   LET a=a*(b-k+1)/k*x
   LET root=root+a
NEXT k
PRINT SQR(5)
PRINT 22/10*root
END
-------------------------------------------------------
REM Maclaurin(自然対数の底)
INPUT PROMPT "n=":n
LET S=1
LET a=1
FOR k=1 TO n
   LET a=a/k
   LET S=S+a
NEXT k
PRINT EXP(1)
print S
END
----------------------------------------------------------