(Fi)
F0 = F1 = 1; Fi = Fi 1 + Fi 2, i = 2, 3,...,
.. .
( 5.2-4). ( ) , . k. F0, F1, F2 = F0 + F1 = 2 S = F0 + F1 + F2 = 4. F 0 F1, () , . m (F2 ≤ m False), . , (S = S - F2). , , m.
Sub P6212(ByVal m As Integer, _ ByRef S As Long, ByRef k As Integer) Dim F, F1, F2 As Integer F0 = 1: F1 = 1: F2 = 2 S = F0 + F1 + F2: k = 3 Do While F2 <= m F0 = F1: F1 = F2 vivodIntLs12(F1, ListBox1) F2 = F0 + F1 S = S + F2 K = k + 1 Loop S = S F2 k = k - 1 End Sub |
. 4.6.2-12. Pr6212(),
,
m
4.6.2-5
- Sub . 4.6.2-12.
- Sub Pr6212() , , . 4.6.2-13.
Dim SS As Long Dim mm, kk As Integer mm=vvodInt9(" mm= ", TextBox1) Pr6212(mm, SS, kk) vivodFxn14(SS, kk, TextBox2) |
. 4.6.2-13. Pr6212()
4.6.2-5
4.6.2-6. -Function, e=0.001
.
, e , .
, , -, , -, , n - . . , z , 1 -1 ( ); n ( ); b ; .
, , . , , = * d, d , .
|
|
-
. 4.6.2-14.
Function Pr6214(ByVal E As Double) _ As Double Dim a, s As Double Dim n, z, b, c, d As Integer n = 1 z = 1 b = 5 c = 2 * 4 d = 4 a = z * n^ 2 * b / c s = 0 Do While Abs(a) > E vivodIntLs12(n, ListBox1) vivodDblLs13(a, ListBox2) s = s + a n = n + 1 z = -z b = b + 1 d = d + 2 c = c * d a = z * n^ 2 * b / c Loop Return s End Function |
. 4.6.2-14. Pr6214(),
e=0.001
4.6.2-6
-Function Pr6214() , , . 4.6.2-15.
Dim EE, SS As Double EE =vvodDbl1(TextBox1) SS = Pr6214(EE) vivodDbl1(SS, TextBox2) |
. 4.6.2-15. Pr6214()
4.6.2-6
1. DLp : 1) ;2) 3) 4) . 2. 1) 2) 3) 4) 3. DoLoop 1) 2) 3) 4) 4. 1) Exit Do 2) Exit 3) Break 4) 5. 1) 2) 3) 4) 6. Do whileLoop, 1) 1 2) 3) 4) 7.
DoLoop While, 1) 1 2) 3) 4) 8. DoLoop Until, 1) 1 2) 3) 4)
9. While Until DoLoop 1) 2) 3) 4) 10.
Dim n As Integer n = 0 Do While n < 5 n = n + 1 Loop TextBox1.Text = CStr(n) |
Dim n As Integer n = 0 Do Until n < 5 n = n + 1 Loop TextBox1.Text = CStr(n) |
i = 1 DO i = i + 2 TextBox1.Text = CStr(i) & vbCrLf LOOP WHILE i < 7 |
|
|
16.
4.6.4.
, , , .
,
1) : ; .
2) , : ( ) ; .
3) , : Do WhileLoop; Do UntilLoop; Do...Loop While; DoLoopUntil.
1)
( 6).
2) -4.6.
3) . 4.6.4-1.
4) .
5) . .
6) .
7) . , . () .
8) .
9) .
4.6.4-1
1) | ε = 0.00001 ( ), : , . |
2) | , , ε = 0.001 x = 0.2 |
3) | ε = 0.00001 x = 2, : , . |
4) | , ε = 0.01, x = 0.6 |
5) | ε = 0.00001, : , . |
6) | ε = 0.00001 x = 2, : , |
7) | sin 0.5 ε = 0.0001, : , . |
8) | ε = 0.00001, : , . |
9) | cos(0.6) ε = 0.00001, : , . |
10) | ε = 0.0001 : . |
11) | , , ε = 0.001 x = 0.5. |
12) | |x|<1 ε = 0.0001, : , . |
13) | ε=0.0001, . |
14) | ε = 0.00001, : , . , . |
15) | , , ε = 0.001 x = 0.3. |
16) | ln(x) ε = 0.0001, : , x=1.5. |
17) | sh(0.3) ε= 0.00005, : , ex, : |
18) | x-0.5(sinx2-1)=0 ε = 0.001, : . |
19) | ln(2) ε = 0.001, : , . |
20) | ε = 0.00001 . |
21) | ch 0.7 ε = 0.00005, : , , : |
22) | e>0. , . |
23) | |x|>1 ε = 0.0001, : , . |
24) | ln(x+1) ε = 0.0001, : , x=0.5. |
25) | b<0. 1, 2, : a1=b; ak=(ak-1+1)/(1-sin2k), k=2, 3, . . |
26) | x. ε=0,00001: (x-1)/x+(x-1)2/(2x2)+(x-1)3/(3x3)+ (x>1/2) |
27) | x. 1/x+1/(3x3)+1/(5x5)+ (x>1) ε=0.0001. |
28) | ε=0,0001 ( , ): 1+1/22+1/32+ p2/6 |
29) | ε=0,0001 ( , ): 1-1/3+1/5-1/7+ p/4 |
30) | ε=0,0001 ( , ): 1/(1*3)+1/(2*4)+1/(3*5)+ 3/4 |
|
|
|
|
4.6.4.4.
1) .
2) , , , .
3) .
4) .
5) , :
5.1) ;
5.2) ;
5.3) ;
5.4) .
6) .
7) .