PRINT
PRINT "放物線 ｙ＝χ^2 の道のり"
PRINT "    （χ,ｙ）＝（０,０）〜 の道のり"
PRINT
INPUT PROMPT " ０ 〜 x ?  ":R
PRINT
DEF f(x)=SQR(4*x^2+1) 
LET L=0
LET h=10^(-5)
FOR x=0 TO R STEP h
   LET dL= h*f(x)
   LET L=dL+L
NEXT x
PRINT "（χ,ｙ）＝（０,０）〜（";R;",";R^2;"）の道のり：";ROUND(L,5)
PRINT
END



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



PRINT
PRINT "放物線 ｙ＝χ^2 の道のり "
PRINT "      道のりが３に最も近いのは？"
PRINT
DEF g(x)=x^2
DEF f(x)=SQR(4*x^2+1)
LET h=10^(-5)
LET U=1
FOR i=1.551 TO 1.559 STEP 0.001
   LET L=0
   FOR x=0 TO i STEP h
      LET dL= h*f(x)
      LET L=dL+L
   NEXT x
   LET Q=ABS(3.00000-ROUND(L,5))
   IF Q<U THEN
      LET U=Q
      LET E=L
      LET W=i
   END IF
   PRINT "χ ＝ ０ 〜";i;" の道のり：";ROUND(L,5);"  （ 3 −";ROUND(L,5);" ＝ ";3.00000-ROUND(L,5);"）"
NEXT i
PRINT
PRINT "道のりが３に最も近いのは、"
PRINT " （χ,ｙ）＝（";W;", ";ROUND(g(W),3);"）の位置で、道のりは";ROUND(E,5);"です。"
PRINT
END