Методом хорд найти решения уравнения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
