Вычислить значение выражения - VB (58470)

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

формула :

Код к задаче: «Вычислить значение выражения - 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.800 из 5


СОХРАНИТЬ ССЫЛКУ