3.2.2. Код программы вычисления суммы членов ряда на языке VBA
Sub Task_3_2()
x = 0.75
S = x
c = 1
f = 1
p = x ^ 2
E = 0.01
d0 = 1
m = 1
Do While Abs(d - d0) > E
c = c + 1
f = f * c
c = c + 1
f = f * c
p = p * x
S = S + d * m
m = m * -1
d0 = d
d = p / f
Loop
Debug.Print
Debug.Print "S="; LTrim(S)
End Sub