Основы программирования
11

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