Page 113 - 4192

Програмний код з Програмний код з

використанням While: використанням Until:

Private Sub Private Sub
Command1_Click() Command1_Click()
Dim k, n As Integer Dim k, n As Integer
Dim s As Single Dim s As Single
eps = Val(Text1) eps = Val(Text1)
k = 1 k = 1
s = 0 s = 0
Do While 1 / k > eps Do Until 1 / k <= eps
s = s + 1 / k s = s + 1 / k
k = k + 1 k = k + 1
Loop Loop
n = k - 1 n = k - 1
Text2 = s Text2 = s
Text3 = n Text3 = n
End Sub End Sub

Private Sub Private Sub
Command2_Click() Command2_Click()
End End
End Sub End Sub

Схема алгоритму прикладу з використанням
ітераційного циклу з післяумовою наведена на рис.5.18

112