Составить программу вычисления членов бесконечного ряда - VB

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

Ну и задание мне дали.. Добрые люди, помогите!!! Надо : Составить программу вычисления членов бесконечного ряда Z=(смотрите приложенное изображение). Помогите срочно, пожалуйста !!! Заранее спасибо

Решение задачи: «Составить программу вычисления членов бесконечного ряда»

textual
                            Листинг программы 
                        

                            Function z(x, Optional e = 0.0001) As Double
Dim n&, x2#, zn#
  x2 = -x * x
  zn = 1: z = zn
  Do
    zn = zn * x2 / (n + 1) / (n + 2)
    n = n + 2
    z = z + zn
  Loop Until Abs(zn) < e
End Function
                        

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

9 голосов , оценка 3.667 из 5

Похожие ответы