Вычислить с точностью ε = 0.0001 - VB

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

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

Вычислить с точностью ε = 0.0001 корень уравнения x-cosx=0 , воспользовавшись формулой: . Проверить правильность решения подстановкой найденного корня в уравнение. .

Решение задачи: «Вычислить с точностью ε = 0.0001»

textual
Листинг программы
Function root(x As Double, eps As Double) As Double
     If Abs(x - Cos(x)) < eps Then
        root = x
     Else
        root = root(Cos(x), eps)
     End If
End Function
 
Sub Test()
     x# = 0.5
     Debug.Print root(x#, 0.00001)  ' печать: 0.739090063988251
End Sub

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


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

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

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