Функция: вычисление суммы ряда (Excel) - VBA

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

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

Составить так чтобы можно было пользоваться в Excel

Решение задачи: «Функция: вычисление суммы ряда (Excel)»

textual
Листинг программы
Function Alodark(x) As Double
Const EPS = 0.000000001 'относительная погрешность
Dim i As Long, x2 As Double, p As Double
  x2 = -4 * x * x
  p = 1
  i = 2 'i=2n
  Do
    p = p * x2 / (i - 1) / i 'очередной член ряда получается домноженим предыдущего на -(2х)^2 и делением на (2n-1)*2n
    Alodark = Alodark + p
    i = i + 2
  Loop Until Abs(p / Alodark) < EPS
End Function

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


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

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

8   голосов , оценка 4.125 из 5