10分法

 投稿者:しばっち  投稿日:2013年 5月19日(日)22時29分19秒
  !' 10分法
PUBLIC NUMERIC T,N
INPUT PROMPT  "n乗根 =": N
INPUT PROMPT  "X=": T
FOR KETA = 4 TO -15 STEP -1
   LET  A = 10 ^ KETA
   FOR I = 1 TO 10
      IF F(X + A * I) > 0 THEN
         LET  X = X + A * (I - 1)
         EXIT FOR
      END IF
   NEXT I
   PRINT X
NEXT KETA
PRINT X;X^N
END

EXTERNAL  FUNCTION F(X)
LET F=X^N-T
END FUNCTION
 

戻る