BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

235:デフォルトの名無しさん
07/01/30 21:09:54
>>234
DEF f(x) = x^2 - 2
DEF df(x) = 2*x
LET EPS = 0.000001
LET IMAX = 1000
LET x = 2
FOR i=1 TO IMAX
LET x1 = x - f(x) / df(x)
IF ABS(x1 - x) < EPS THEN EXIT FOR
LET x = x1
NEXT i
IF i < IMAX THEN PRINT x1
END

次ページ

続きを表示

1を表示