Page 109 - 4192
P. 109
Приклад: Обчислити добуток множників
Для обчислення добутку:
1. Перед циклом початкове значення змінної, де
нагромаджуватиметься добуток, наприклад D, має
дорівнювати одиниці (D=1).
2. У тілі цикла накопичуємо добуток.(D=D*f).
3. Після закінченя цикла виводимо результат обчислення
суми.
Схема алгоритму наведена на рис. 5.12, а результат
виконання на рис 5.13.
Програмний код:
Private Sub
Command1_Click()
Dim k As Integer
Dim p As Single
p = 1
For k = 1 To 7
p = p * 1 / k
Next k
Text1 = p
End Sub
Private Sub
Command2_Click()
End
End Sub
Рисунок 5.12 – Рисунок 5.13– Розроблений
Блок-схема інтерфейс та результат
алгоримту виконання програми
108
