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