Методом половинного деления найти корень уравнения - VB (62121)
Формулировка задачи:
Доброго времени суток. Пожалуйста помогите с решением данной задачи ^
Создать пользовательскую форму, которая позволит методом половинного деления найти корень уравнения
Уравнение
Решение задачи: «Методом половинного деления найти корень уравнения»
textual
Листинг программы
Dim a As Double Dim b As Double Dim c As Double Dim d As Double Public Function f(x As Double) As Double f = x ^ 5 - 0.3 * Abs(x - 1) End Function Private Sub Command1_Click() a = Text1 b = Text2 d = Text3 'точность Do While Abs(b - a) > d c = (b + a) / 2 If f(a) * f(c) < 0 Then b = c Else a = c End If Loop Label1 = "корень уравнения = " & a End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д