Page 108 - 4192
P. 108
Приклад: Обчислити суму доданків
Для обчислення суми:
1. Перед циклом початкове значення змінної, де
нагромаджуватиметься сума, наприклад S, має дорівнювати
нулеві (S=0).
2. У тілі цикла накопичуємо суму (S=S+f).
3. Після закінченя цикла виводимо результат обчислення
суми.
Схема алгоритму наведена на рис. 5.10, а результат
виконання на рис 5.10.
Програмний код:
Private Sub
Command1_Click()
Dim s, i As Integer
s = 0
For i = 1 To 8
s = s + 1 / (i + 1)
Next i
Text1 = Format(s, "0.000")
End Sub
Private Sub
Command2_Click()
End
End Sub
Рисунок 5.10 – Рисунок 5.11– Розроблений
Блок-схема інтерфейс та результат
алгоримту виконання програми
107
