杭州交通信息网材料加工工程招聘:关于计算机编程的问题 高手来 求助ING。。。。
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/10 07:54:25
下面程序上用二分法求方程X^2-X-2=0的跟。请将程序补充完整。
DEF fan(x)=_____
DO
INPUT"enterx1,x2:",x1,x2
LOOP WHILE SGN(fna(x))=SGN(fan(x))
DO
f1=____
f2=fna(x2)
x0=____
f0=fna(x0)
IF SGN(f0)<>SGN(f1) THEN
x2=x0
f2=f0
ELSE
x1=x0
f1=f0
LOOP WHILE ABS(fo)>.00001 AND n<100
PRINT":=":x0
END
DEF fan(x)=_____
DO
INPUT"enterx1,x2:",x1,x2
LOOP WHILE SGN(fna(x))=SGN(fan(x))
DO
f1=____
f2=fna(x2)
x0=____
f0=fna(x0)
IF SGN(f0)<>SGN(f1) THEN
x2=x0
f2=f0
ELSE
x1=x0
f1=f0
____
n=n+1
PRINT n,x1,x2
LOOP WHILE ABS(fo)>.00001 AND n<100
PRINT":=":x0
END
好象是这样的问题啊
对不起啊 我好象是打错了啊 嘿嘿 抱歉啊 ！~~~~
可是其中的几个空都填什么啊 你还没说呢吧！~
既然C 简单 你能不能帮我用C 做一下呢 ？
DEF fan(x)=_____
DO
INPUT"enterx1,x2:",x1,x2
LOOP WHILE SGN(fna(x))=SGN(fan(x))
DO
f1=____
f2=fna(x2)
x0=____
f0=fna(x0)
IF SGN(f0)<>SGN(f1) THEN
x2=x0
f2=f0
ELSE
x1=x0
f1=f0
LOOP WHILE ABS(fo)>.00001 AND n<100
PRINT":=":x0
END
DEF fan(x)=_____
DO
INPUT"enterx1,x2:",x1,x2
LOOP WHILE SGN(fna(x))=SGN(fan(x))
DO
f1=____
f2=fna(x2)
x0=____
f0=fna(x0)
IF SGN(f0)<>SGN(f1) THEN
x2=x0
f2=f0
ELSE
x1=x0
f1=f0
____
n=n+1
PRINT n,x1,x2
LOOP WHILE ABS(fo)>.00001 AND n<100
PRINT":=":x0
END
好象是这样的问题啊
对不起啊 我好象是打错了啊 嘿嘿 抱歉啊 ！~~~~
可是其中的几个空都填什么啊 你还没说呢吧！~
既然C 简单 你能不能帮我用C 做一下呢 ？
我来吧，很简单，不过没编译过，你试试就行了。
10 DEF FNY(X)=X*X-X-2
20 E=5E-06
30 INPUT "a,b=";A,B
40 LPRINT "a="A,"B="B,"E="E
50 IF FNY(A)*FNY(B)>0 THEN STOP
60 C=(A+B)/2
70 IF I=INT(1/4)*4 THEN I=0;LPRINT
80 LPRINT TAB(20*I)C;
90 IF ABS(FNY(C))>E THEN 120
100 A=C:B=C
110 IF B-A<E THEN 150
120 IF FNY(A)*FNY(C)<O THEN B=C ELSE A=C
130 I=I+1:GOTO 70
140 LPRINT:LPRINT "X="C
150 END
其中E就是你上面所要的0.0001，对此程序可梢做修改即可。
这样的程序用C来写更容易。