Методом деления отрезка пополам найти с точностью Е корень уравнения - VB
Формулировка задачи:
VB 6.0 с использованием процедуры Sub описать рекурсивную функцию Root(f,b,E),которая методом деления отрезка пополам находит с точностью Е корень уравнения f(x)=0 на отрезке [a,b] (считать, что E>0,a<b,f(a)*f(b)<0 и f(x)-непрерывная и монотонная на отрезке [a,b])
Решение задачи: «Методом деления отрезка пополам найти с точностью Е корень уравнения»
textual
Листинг программы
Function Root(a As Double, b As Double, eps As Double) As Double Dim c As Double c = 0.5 * (a + b) If Abs(a - b) < eps Then Root = c Exit Function Else If (f(a) < 0 And f(c) > 0) Or _ (f(a) > 0 And f(c) < 0) Then Root = Root(a, c, eps) Else Root = Root(c, b, eps) End If End If End Function Function f(x As Double) As Double f = Sin(x) End Function Sub Start() Debug.Print Root(2, 4, 0.0000000000001) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д