Page 107 - 4192

3 ВИКОРИСТАННЯ ЛІЧИЛЬНИХ ЦИКЛІВ ПРИ
ОБЧИСЛЕННЯХ ФАКТОРІАЛІВ, СУМ ТА ДОБУТКІВ

Приклад: Обчислити значення факторіала n!, де n=9.
Складемо гшрафічний алгоритм рішення задачі (рис.5.8).

Програмний код:
Private Sub
Command1_Click()
Dim F, n As Integer
n =
Val(InputBox("Введіть n"))
F = 1
For i = 1 To n
F = F * i
Next i
Text1 = F
Text2 = n
End Sub
Private Sub
Command2_Click()
End
End Sub

Рисунок 5.8 – Рисунок 5.9 – Розроблений
Блок-схема інтерфейс та результат
алгоримту виконання програми

106