,
, n, , .
u (1), u (2),..., u (n),..., , . . . u (n) n .
: e: . , , .
(.. ) u (n)= u (n -1)+ u (n). 4.
. 4.
- . , e: .
(.. ) Do...Loop. , , , For...Next, For...Next .
. p,
.
, 0, 0000001. .
e = 0, 0000001. p , S , . S Δ .
Sub Demo_Pi()
Dim i As Integer
Dim e, s, u, Pi As Single
i = 1
s = 0
'
e = 0.0000001
Do
'
u = 1 / i ^ 2
s = s + u
i = i + 1
Loop Until Abs(u) < e
Pi = Sqr(s * 6)
MsgBox " " & Pi & ", " & i - 1,, " "
End Sub
.
,
x <1 , e<<1.
Sub Demo_summa_ryada()
Dim n As Integer '
Dim x As Single '
Dim z As Double '
Dim u As Double '
Dim e As Double '
x = InputBox(" < 1 - ", " ")
e = InputBox(" E<<1 -", " ")
|
|
z = 0
n = 1
Do
'
u = (-1) ^ n * x ^ (2 * n) / (2 * n)
z = z + u
n = n + 1
Loop While Abs(u) >= e
z = z + 1 '
MsgBox " " & z,, " "
End Sub