Разработать информационную технологию вычисления приближённого значения корня уравнения - VB
Формулировка задачи:
Разработать информационную технологию вычисления приближённого значения корня уравнения с точностью до e. Начальное приближение к корню принять равным 1,2.
x-2+sin1/x=0
Решение задачи: «Разработать информационную технологию вычисления приближённого значения корня уравнения»
textual
Листинг программы
Function root(x As Double, eps As Double) xx# = 2 - Sin(1 / x) If Abs(xx# - x) < eps Then root = xx# Else root = root(xx#, eps) End If End Function Sub test() Debug.Print root(1.2, 0.0000000001) ' вывод: 1.30766271563161 End Sub