Методом хорд найти решения уравнения - VB

Узнай цену своей работы

Формулировка задачи:

методом хорд найти решения уравнения x^4-2=0 на отрезке от 0 до 3 включая крайние точки

Решение задачи: «Методом хорд найти решения уравнения»

textual
Листинг программы 
Private Sub CommandButton7_Click()
Dim e As Single, x1 As Single, x2 As Single
e = 0.00001
 
x1 = 0: x2 = 2
 
Do While Abs(x1 - x2) > e
 x3 = x2 - ff(x2) * (x2 - x1) / (ff(x2) - ff(x1))
 x1 = x2: x2 = x3
 DoEvents
Loop
 
 
 MsgBox x3
 
End Sub
'èñõîäГ*Г*Гї ГґГіГ*êöèÿ
Function ff(ByRef xx As Single) As Single
 ff = xx ^ 4 - 2
End Function

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

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

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

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