Методом половинного деления найти корень уравнения - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы