, :
( 4.5.2-3).
( 4.5.2-2).
( 4.5.2-8).
n- ( 4.5.2-3 4.5.2-4, 4.5.2-6).
n- ( 4.5.2-5).
() ( 4.5.2-7);
a0, a1,,ai,,an.
ai , ai.
ai k : ai = f(a i-k, a i-k+1, a i-1), k ≤ i. , i - a0, a1, , ai-1. , . , , .
ai=f(ai-1) i >0, a0=c, . , ai=ai-1+d, a0=a, bi=bi-1 ∙q, b0=b. a=f(a). . a, ai-1, a , a, ai.
. Sk k a1, ai, an. , Sk=S k-1 + ak k=1,, n; - S0=0. k Pk=Pk-1 ∙ak , k=1,,n; , P0=1.
, , .. . .
. , ( ), .
|
|
, , , .
4.5.2-1. -Sub, y(x) = sin(x) x, [a; b] h.
.
-Sub, y(x)= sin(x) x a b h. a, b, h .
Sub Pr521() Dim a, b, h As Single Dim x, y As Single a = vvodSng3(TextBox1) b = vvodSng3(TextBox2) h = vvodSng3(TextBox3) For x = a To b Step h y = Sin(x) vivodSng3Fxy8(x, y, TextBox4) Next x EndSub |
. 4.5.2-1. Pr521(), / 4.5.2-1
. 4.5.2-1.
Pr521() , ,
. 4.5.2-2.
Pr521() |
. 4.5.2-2. Pr521()
, , . . 4.5.2-3.
Sub Pr523(ByVal a As Single, _ ByVal b As Single, _ ByVal h As Single) Dim x As Single, y As Single For x = a To b Step h y = Sin(x) vivodSng3Fxy8(x, y, TextBox4) Next x End Sub |
. 4.5.2-3. Pr523(),
4.5.2-1
Pr523() , ,
. 4.5.2-4.
Dim aa, bb, hh As Single aa=vvodSng3(TextBox1) bb=vvodSng3(TextBox2) hh=vvodSng3(TextBox3) Pr523(aa, bb, hh) |
. 4.5.2-4.. Pr523()
, For Next, .
, b, b, , a . , , a=0, b=1 h=0.1, , x, 0.9000001, .. x=b . , a, b, h x .
Sub Pr525(ByVal a As Single, _ ByVal b As Single, _ ByVal h As Single) Dim x, y As Single Dim n, i As Integer n = CInt((b - a) / h) + 1 x = a For i = 1 To n y= Sin(x) x = x + h vivodSngFxy8(x, y, TextBox4) Next i End Sub |
. 4.5.2-5. Pr525(),
, 4.5.1-3
|
|
, (. 4.5.2-5 . 4.5.2-6). x. , .
|
. 4.5.2-6. Pr526(),
, 4.5.1-3
, ( [a; b] a , b ) c h, x=x+h , x=a+(i-1)*h ( Double) .
4.5.2-2. -, y=cos(8x) x 0 p p/16.
(.4.5.2-7).
- Pr 527() , , . 4.5.2-8.
. .
.
Function Pr527(ByVal n As Integer,_ ByVal h As Double) As Double Dim x, y, s As Double Dim i As Integer s = 0 x = 0 For i = 1 To n Y = Cos(8 * x) If y > 0 Then s = s + y x = x + h Next i Return s End Function |
.4.5.2-7. Pr527() 4.5.2-2
Dim ss, hh As Double Dim nn As Integer h = Math.PI / 16 n = CInt((Math.PI -0) / h) + 1 'nn=17 ss = Pr527(nn, hh) vivodDblFx6(ss, TextBox1) |
. 4.5.2-8. Pr527()
(.4.5.2-7).
- Pr 527() , , . 4.5.2-8.
. .
.
( ), x , x=x+h, x h . x (x=0). (s=0), y>0 . , , , , (p=1).
4.5.2-3. -Sub, n
fi = -i ∙ fi-1, f0 = 1.
|
|
. 4.5.2-9.
Sub Pr529(ByVal n As Integer, _ ByRef s As Long, _ ByRef p As Long) Dim f As Long Dim I As Integer f = 1: s = 0: p = 1 For i = 2 To n f = -i * f s = s + f p = p * f Next i End Sub |
. 4.5.2-9. Pr529() 4.5.2-3
Pr 529() , , . 4.5.2-10.
Dim ss, pp As Long Dim nn As Integer nn= vvodInt4(TextBox1) Pr529(nn, ss, pp) vivodLngFx7(ss, TextBox2) vivodLngFx7(pp, TextBox3) |
. 4.5.2-10. Pr529()
4.5.2-4. -Function,
n- fi= fi-1 + fi-2, f0 = f1 = 1.
, . . b=f0, =f1. a=b+c. b=c c=a b c a. , (b=c), a (c=a). i=3, 3- (f0=f1=1 ).
. 4.5.2-11.
Function Pr5211(ByVal n As Integer) As Integer Dim a, b, c As Integer Dim i As Integer b = 1 c = 1 For i = 3 To n a = b + c b = c c = a Next i Return a End Func t ion |
. 4.5.2-11. Pr5211() 4.5.2-4
Pr5211() , , . 4.5.2-12.
Dim aa As Integer Dim nn As Integer nn = vvodInt4(TextBox1) aa = Pr5211(nn) vivodInt4(aa, TextBox2) |
. 4.5.1-12. Pr5211()