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