Уравнение Методом "Половинного Деления" - VB

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

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

Привет тебе вновь дорогой форум, Уравнение: Ребят, столкнулся очередной раз с проблемой: Вроде написал код как в инструкции для чайников, вроде всё проверил, а программа просто зависает на "Else"
Помогите воскресить эту программу...

Решение задачи: «Уравнение Методом "Половинного Деления"»

textual
Листинг программы
Private Sub Комманда1_Click()
    Dim X3
    Dim X1
    Dim X2
    X1 = 0
    X2 = 0.8
    Do
      X3 = (X1 + X2) / 2
      If (F(X1) * F(X3) < 0) Then
       X2 = X3
      End If
      If (F(X3) * F(X2) < 0) Then
       X1 = X3
      End If
      DoEvents
      Loop While Abs(F(X1)) > 0.0001
      MsgBox "X = " & X1, 64, CDec(Abs(F(X1)))
End Sub
Function F(X)
    F = Tan(X) - Tan(X / 3) ^ 3 + Tan(X / 5) ^ 5 - 0.5
End Function

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

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