Подсчитать сумму ряда с заданной точностью - VB (59611)

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

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

Доброго времени суток!
Ребят, я что-то очень туплю, сижу уже 6 час над этим уравнением : Пожалуйста, объясните, как мне записать его в Basic?
Или хотя бы объясните дундуку, как записать факториал нечётный с числа 3 и дальше, мне нужно решить это уравнение используя оператор "function" и рода "Do loop" Нечётный факториал будет вот так? :

Решение задачи: «Подсчитать сумму ряда с заданной точностью»

textual
Листинг программы
Option Explicit
 
Sub Main()
  Const Eps = 0.00001
  Dim X As Double, A As Double, S As Double, I As Integer
  
  X = InputBox("Enter X")
  I = 0
  A = -1
  S = 0
  
  Do
    I = I + 1
    A = -A * (X * X / (2 * I) / (2 * I + 1))
    'Debug.Print A
    S = S + A
  Loop While Abs(A) > Eps
  
  MsgBox "sum {i in 1 to " & I & "} of ... = " & S
End Sub

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


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

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

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