Лабораторная работа. Основы работы в VBA. Алгоритмическая структура - цикл
5. Типовые задачи с использованием операторов цикла. Вычисление произведения
Вычисление конечного произведения
представляет собой процесс нахождения произведения заданного количества
сомножителей по формуле
\( P=f(1) \cdot f(2) \cdot . . . \cdot f(n) = \Pi_{i=1}^{n}{f(i)} \)
Как и суммирование, вычисление произведения организуется с помощью циклического процесса по рекуррентному соотношению
\( P(i)=P_{i-1} \cdot f(i) \)
В отличие от суммирования начальное значение произведения P0 должно быть равно единице.
Алгоритм нахождения произведения представлен на рис. 3.
Пример 1. Вычислить факториал числа N.
Формула для вычисления факториала имеет вид:
\( y=n! = 1 \cdot 2 \cdot 3 \cdot . . . \cdot n = \Pi_{i=1}^{n}{i} \)
Как видно из формулы, вычисление факториала числа 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
