Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 33 стр.

 Do:     Iter = Iter + 1
  D = 0.5 * (Beta - Alpha)
  X = Alpha + D: Range(Xch) = X
    If D / Mabs <= Eps Then Exit Do
  Select Case Sgn(Range(Fch)) * Sfa
   Case 1: Alpha = X         ' f(X)*Sfa > 0
   Case 0: Exit Do            ' f(X) = 0
   Case -1: Beta = X         ' f(X)*Sfa < 0
  End Select
 Loop
 DOP = True
End Function


Sub Primer_2_2( )          ' Пример 2.2.           Запускающая процедура:
Dim N As Integer
  res = DOP(Fch:="f", Xch:="x", a:=0, b:=3, Eps:=0.0001, Iter:=N)
  Debug.Print res, Range("x"), Range("f"), N
End Sub
Результат, выведенный в окно отладки:
  True        1,08489990234375             -7,21528830126827E-05            14
  2.2. Задачи
1. Найти с относительной погрешностью 0,001 корень уравнения
  x3  x2  0.1  0 подбором параметра и методом половинного деле-
  ния на отрезке x [a ; 2] для a=0; 0.1; …0.7. Сравнить полученные
   результаты.
2. Цилиндрическая автоцистерна для перевозки жидкости имеет в сече-
   нии форму эллипса с полуосями: a=1м, b=0.75м. Длина L цистерны
   составляет 4м. Цистерна установлена горизонтально. Для тарировки
   мерного щупа, опускаемого вдоль вертикальной оси эллипса, рассчи-
   тать высоту h уровня налитой жидкости для объѐма V через каждые
   0.5 м3 объѐма V. Построить график зависимости высоты h уровня от
   объѐма V. Указание. Зависимость объѐма V жидкости, налитой в
                                              33