|
投稿者：しばっち
投稿日：2013年 5月19日(日)22時29分19秒
|
|
|
|
!' １０分法
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
|
|
|