Вычисление произведения

 

    Вычисление конечного произведения представляет собой процесс нахождения произведения заданного количества сомножителей по формуле

 

.

 

    Как и суммирование, вычисление произведения организуется с помощью циклического процесса по рекуррентному соотношению

 

.

 

    В отличие от суммирования начальное значение произведения  должно быть равно единице.

    Алгоритм нахождения произведения представлен на рис. 3.

Пример. Вычислить факториал числа N.

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

 

.

 

    Как видно из формулы, вычисление факториала числа N сводится к нахождению произведения n сомножителей.

 

Sub Demo_Proizvedenie()

Dim n, i, u As Integer

Dim p As Double

n = InputBox("Введите число n= ", "Запрос программы")

p = 1

For i = 1 To n

u = i

p = p * u

Next i

MsgBox "Факториал чисел от 1 до  " & n & " равен " & p,, "Решение задачи"

End Sub

 

 

 

Вычисление суммы бесконечного убывающего ряда