Вычислить с точностью ε = 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