Pos() . 4.6.4-6.
. 4.6.4-6. Pos() 6-2:
,
5.4) :
. 4.6.4-7.
Public Class Form1 ' TextBox Function vvod(ByVal T As TextBox) As Double Return Val(T.Text) End Function ' ListBox Sub vivodList(ByVal Z As Double, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' ListBox Sub vivodint(ByVal Z As Integer, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' ' Private Sub Pos(ByVal x As Double, ByVal E As Double) Dim n As Integer Dim a As Double a = x - 1 n = 1 Do While a > E vivodint(n, ListBox1) vivodList(a, ListBox2) a = a * (x - 1) / (n + 1) n = n + 1 Loop End Sub Private Sub Button1_Click(sender As Object, e As EventArgs)_ Handles Button1.Click Dim EE, x0, y As Double EE = vvod(TextBox1): x0 = vvod(TextBox2) Pos(x0, EE) End Sub End Class |
. .1.6-7. 2- 6-2:
,
. 4.6.4-8.
. 4.6.4-8. 2- 6-2
7) :
0.0001.
1) ?
2) Do WhileLoop DoLoop Until ?
3) Do WhileLoop DoLoop Until ?
4) Do WhileLoop, DoLoop Until?
5) ?
6) ?
7) ?
8) ?
9) ?
10) ?
11) ?
12) Do ?
13) ?
14) ?
15) VB ?
16) Do While Until?
17) ?
18) ?
|
|
19) DoLoop?
20) DoLoop?
21) ?
22) ?
23) , Do WhileLoop?
24) , Do Loop While?
25) , Do Loop Until?
26) ?
27) While Until ?