1. .
2. OLE Microsoft Equation.
3. Format CSng.
4. Function.
5. Visual Basic.
Private Sub cmdStart_Click()'
' cmdStart_Click,
'
' cmdStart
E = CSng(cmbl.Text) '
x = CSng(txt.Text) '
S = 1 '
Zn = 1 ' ,
I = 1 ' ,
1: If x / F(I) > E Then '
S = S + x / F(I) * Zn '
I = I + 2 '
Zn = -Zn '
GoTo 1 ' 1
End If '
lblRez.Caption = Format(S, "#0.0000000") '
End Sub '
' cmdStart_Click
Private Sub cmdEnd_Click()'
' cmdEnd_Click(),
'
' cmdEnd
End '
End Sub '
' cmdEnd_Click()
Private Sub Form_Load() '
' Form_Load(),
' frmMain
K = 10 ' ,
'
En = 0.1 ' ,
'
For I = 1 To 5 '
'
En = En / K '
'
cmbl.AddItem ((En)) '
'
Next '
cmbl.ListIndex = 0 '
'
End Sub ' Form_Load
Private Function F(x) As Single '
'
F = 1 ' ,
'
For I = 1 To x '
F = F * I '
Next '
End Function '
1. .
2. Visual Basic.
3. , .
4. .
5. - .
| ε = 1×10-4 | |
:
 , = 1,2
| |
:
| |
:
| |
 :
| |
,  , 
| |
, Δ , = n + 5:
| |
_ ε :
| |
:
 , =1,5
| |
:
 , =0,8
| |
:
 , = 4,4
| |
:
 , = 350
| |
:
| |
:
| |
= 1,82 + cos(n):
|
|
|
|
| ε = 1×10-4 | |
| cos(x), cos(x+n), cos(x+2n),..., cos(x+20n), 0,5 | |
:
| |
= 10:
| |
:
| |
:
| |
:
| |
= 1,324-  :
| |
= n +0,725:
| |
:
| |
:
| |
:
| |
| :
| |
| :
| |
:
| |
:
| |
:
|
5
