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

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


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

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

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