Разработать информационную технологию вычисления приближённого значения корня уравнения - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
