Вычисление суммы ряда с вычислением факториала

Можно вычислять факториал при вычислении каждого ряда, используя формулу накапливания факториала как произведения f = f × n.

Например,

Здесь члены ряда целесообразно вычислять по формуле , где f = f × n.

Начальное значение f = 1.

9.4. Вычисление суммы знакопеременного ряда

Рассмотрим ряд .

Знак членов ряда чередуется – знакопеременный ряд. Модуль члена ряда a_n вычисляется по формуле n -го ряда без учета знака, т.е. . Для формирования знака члена ряда используется вспомогательная переменная с, которая принимает значение +1 или –1. Начальное значение с выбирается, исходя из знака 1-го члена ряда, для данного ряда начальное значение с = 1. В конце цикла при подготовке к его повторению знак переменной с меняется на противоположный: с = - с. Умножение модуля текущего члена ряда на с приводит к чередованию знака у членов ряда. S – сумма ряда.

Private Sub btnCalculate_Click()

Dim x as Single, y as Single, Y as Single

Dim e as Single, n as Integer

Dim c as Integer, a as Single, S as Single

x=Val (TxtX.text)

e=Val (Txte.text)

S=0

n=1

c=1

M:

A=c*sin(n*x)/n

If abs(a) > = e then

y=S+a

n=n+1

c = -c

goto M

else

Form1. Print “S=”; S, “a=”; a, “n=”; n

Print “y=” x/2

End if

End Sub

Блок-схеме алгоритма

Дата добавления: 2014-01-07