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 高一学生..错误一定很多..大家闲了没事多帮帮我吧 谢了。
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 高一学生..错误一定很多..大家闲了没事多帮帮我吧 谢了。
