PRINT
PRINT "log 2 の近似値"
PRINT
LET a=0
LET b=0
FOR i=1 TO 1000000
   LET a=a+1/(2*i-1)
NEXT i
FOR j=1 TO 1000000
   LET b=b+1/(2*j)
NEXT j
PRINT "近似値 :";a-b
PRINT "真値　 : .693147180559945309417232"
PRINT "真値　 :";LOG(2)
PRINT
END



#####################################################################



OPTION ARITHMETIC decimal_HIGH
PRINT
PRINT "log 2 の近似値"
PRINT
LET a=0
FOR i=1 TO 1000
   LET a=a+2/((2*i-1)*3^(2*i-1))
NEXT i
PRINT "近似値 : ";a
PRINT "真値   :  .693147180559945309417232"
PRINT "真値   : ";LOG(2)
PRINT
END