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