Вычислить значение выражения - 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

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


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

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

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