, . , . , . . . .
, . , . .
8. . .
. . : . . i = n, , . . : , , X ε, , , , .
, , n, :
(5)
. Y ε . , .
, , . .
(6)
(6) :
(7)
. | |||
i | i | ||
X | X | ||
Y | Y | ||
A | A i | ||
ε | E |
- . 8.
pr8.
. 8. - 8
Sub pr8()
Dim Y As Double, X As Double, E As Double, A As Double
Dim i As Double
X = InputBox(X=)
E = InputBox(E=)
i =1: A= -X*X/2: Y = 0
Do While Abs(A) >= E
|
|
Y = Y + A
i=i+ 1
A = -X*X / 2 / i / (2*i - 1)*A
Loop
MsgBox(Y= & Y)
End Sub