Вычислить значение выражения - VB (58470)
Формулировка задачи:
формула :
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
MsgBox(modiNewton(700, 0.000001)) '… Private Function modiNewton(ByVal x0 As Double, ByVal eps As Double) As Double Dim ff = Function(x As Double) Return x - Math.Sqrt(x * x - 160000) - 100 End Function Dim ll As Double Do ll = ff(x0) x0 = x0 + eps ll = eps * ll / (ff(x0) - ll) x0 = x0 - ll - eps Loop While Math.Abs(ll) > eps Return x0 End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д