BASICの宿題はお前にまかせたat TECHBASICの宿題はお前にまかせた
- 暇つぶし2ch235:デフォルトの名無しさん 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