level 8
你吧源程序贴上来吧，图片有水印看不见
2013年03月13日 14点03分
level 10
level 8
Dope😲
楼主
a=1
b=2
n=(a/2+b/2)^3-3*(a/2+b/2)+1
m=(a^3-3*a+1)*((a/2+b/2)^3-3*(a/2+b/2)+1)
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=".a'
ENDIF
ELSE
IF m<0 THEN
DO WHILE b-a<=0.01
b=a/2+b/2
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=".a'
ENDIF
ELSE
IF m<0 THEN
b=a/2+b/2
ELSE
a=a/2+b/2
LOOP
ELSE
DO WHILE b-a<=0
a=a/2+b/2
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=",a'
ENDIF
ELSE
IF m<0 THEN
b=a/2+b/2
ELSE
a=a/2=b/2
LOOP
ENDIF
我这是用二分法求x^3+3*x+1=0在（1，2）上精度到0.01的根
我昨天才接触Qbasic 高一学生..错误一定很多..大家闲了没事多帮帮我吧 谢了。
2013年03月13日 22点03分
3
b=2
n=(a/2+b/2)^3-3*(a/2+b/2)+1
m=(a^3-3*a+1)*((a/2+b/2)^3-3*(a/2+b/2)+1)
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=".a'
ENDIF
ELSE
IF m<0 THEN
DO WHILE b-a<=0.01
b=a/2+b/2
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=".a'
ENDIF
ELSE
IF m<0 THEN
b=a/2+b/2
ELSE
a=a/2+b/2
LOOP
ELSE
DO WHILE b-a<=0
a=a/2+b/2
IF n=0 THEN
a'=a/2+b/2
PRINT"a'=",a'
ENDIF
ELSE
IF m<0 THEN
b=a/2+b/2
ELSE
a=a/2=b/2
LOOP
ENDIF
我这是用二分法求x^3+3*x+1=0在（1，2）上精度到0.01的根
我昨天才接触Qbasic 高一学生..错误一定很多..大家闲了没事多帮帮我吧 谢了。
是x^3-3*x+1=0在（1,2）上的根。精度为0.01
2013年03月14日 01点03分
level 8
Dope😲
楼主
2013年03月14日 04点03分
4
?
2013年03月14日 04点03分
回复 tsliuhaitao :能不能帮我用二分法算x^3-3*x+1=0在（1，2）上的根。精度为0.01。我高一学生 昨天刚接触 特别感兴趣 弄了好长时间 老师也不给我讲 说让我先把别的学好。你帮我弄一下吧 谢谢你了。
2013年03月14日 04点03分
高中数学我都忘了。。。如果给出思路我帮你编程倒是可以。 - -! 流汉中……
2013年03月14日 04点03分
回复 tsliuhaitao :就是要先将（a+b）/2带入函数 函数值为0的话直接退出循环 若不为0 将a的函数值和（a+b）/2的函数值相乘 f(a)*f((a+b)/2) 若结果小于零则将（a+b）/2的值赋到b上 大于零就赋到a上 然后继续循环 直到b-a<=0.01 退出循环 输出a和b的值 大致思路是这样的 但是实际操作还请多指教
2013年03月14日 05点03分