Отделение корней уравнения методом половинного деления - VB

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

Помогите пожалуйста мне в Visual Basic надо сделать Отделение корней уравнения y=(1/5)*x^5+0.3*x^4-(5/3)*x^3-x^2+4*x-1.7 на отрезке [-3;3] с шагом h=1 и решить один из корней методом половинного деления. Помогите пожалуйста!

null

вот написал код и выдает ошибку пожалуйста помогите её исправить

Решение задачи: «Отделение корней уравнения методом половинного деления»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function f#(x)
f = (1 / 5) * x ^ 5 + 0.3 * x ^ 4 - (5 / 3) * x ^ 3 - x ^ 2 + 4 * x - 1.7
End Function
 
Sub k(x, b, h, eps)
    Do
    a = x:         f1 = f(x)
    x = x + h:     f2 = f(x)
        If f1 * f2 < 0 Then
           b1 = x
                Do
                   c = (b1 + a) / 2
                   If f(a) * f(c) > 0 Then a = c Else b1 = c
                Loop While Abs(a - b1) > eps
i = i + 1: Print "x"; i; "="; c
        End If
     Loop While x <= b
End Sub
 
Private Sub Command1_Click()
k -100, 100, 0.1, 0.0001
End Sub

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

11 голосов , оценка 3.818 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы