Вычислить уравнение с точностью до E - VB

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

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

Прошу помогите нужно написать на VB Вычислить с точностью до E=1*10^-4 21 Вариант

Решение задачи: «Вычислить уравнение с точностью до E»

textual
Листинг программы
Private Sub Form_Load()
Dim x1 As Double, s As Double, sold As Double, ri As Double, eps As Double, ai As Double
n = 5
x1 = 1.324 + Sqr(n)
s = 1
i = 0
ai = 1
sold = 0
Do
i = i + 1
ri = -(x1 ^ 2) / (2 * i * (2 * i - 1))
ai = ai * ri
s = s + ai
eps = Abs(s - sold)
sold = s
Loop Until eps < 0.0001
MsgBox s
End Sub

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


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

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

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