Вычисление конечного произведения представляет собой процесс нахождения произведения заданного количества сомножителей по формуле
.
Как и суммирование, вычисление произведения организуется с помощью циклического процесса по рекуррентному соотношению
.
В отличие от суммирования начальное значение произведения должно быть равно единице.
Алгоритм нахождения произведения представлен на рис. 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
Вычисление суммы бесконечного убывающего ряда