Question

画出程序框图，用二分法求方程1.3X^3-26.013X^2+19.50975=0在（20，21）

画出程序框图，用二分法求方程1.3X^3-26.013X^2+19.50975=0在（20，21）之间的近似根（精确度为0.005）

Answer 1

 

不过，有一个解是在（19，20）区间上啊！

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  a = Val(InputBox("请输入a=", "输入"))
  b = Val(InputBox("请输入b=", "输入"))
  e = 0.005
  Do
    c = (a + b) / 2
    If f(c) = 0 Or abs(a - b) < e Then Exit Do
    If f(a) * f(c) < 0 Then
      b = c
    Else
      If f(c) * f(b) < 0 Then
        a = c
      Else
        end
      End If
    End If
  Loop
  MsgBox c, vbInformation, "输出"
End Sub  '结束

 

Function f(x)
  f = 1.3 * X ^ 3 - 26.013 * X ^ 2 + 19.50975
End Function