Найти корни уравнения с точностью до 0,001 - VB

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

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

помогите пожалуйста с решение задачи... Найти корни уравнения с точностью до 0,001 методом хорд: 5х3+4х2+4х+3=0

Решение задачи: «Найти корни уравнения с точностью до 0,001»

textual
Листинг программы
Private Sub Command1_Click()
Print h(0, 10, 0.001)
End Sub
Function h!(a!, b!, eps!) ' a, b - пределы хорды, eps - необходимая погрешность
   If Abs(b - a) < eps Then
   h = b
   Else
        a = b - (b - a) * f(b) / (f(b) - f(a))
        b = a - (a - b) * f(a) / (f(a) - f(b))
        Print b
    h = h(a, b, eps)
   End If
End Function
Function f!(x!)
    f = 5 * x ^ 3 + 4 * x ^ 2 + 4 * x + 3  ' // Заменить ф-ей, корни которой мы ищем
End Function

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


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

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

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