.


:




:

































 

 

 

 





-

 

 

 

 

Visual Basic

 

 

 

 


004.4

 


Visual Basic

 

: , 2011

 

Microsoft Visual Studio 2010 Visual Basic .

 

: . . . . ,

. .-. . . , ..

 

- .-. , . .

 

- , 2011 .


. , :

, ;

;

;

- ;

;

( );

.

 

 

1

 

: Visual Basic 2010.

: Visual Basic 2010. . . .

1. ( 1 1.1).

2. ConsoleApplication.

3. Visual Basic.

4. .

5. , .

1. .

:

 

Z = ,

a =114.6; b =53.47.103; x =36o; y =0.87

1.1. : a =114.6; b =53.47.103; x =36o; y =0.87. : Z.

:

x1 - , ,

z1 - , z2 - .

1.2. (. 1.1).

a, b, x, y
x1
z
z2
z
z1
z1, z2


 

a, b, x, y

 

x x1=π*x/180

 

z1=

 

z2= (sin x + b.cos y)2

 

 

z1, z2

 

z=z1/z2

 

 

z

 

.1.1. -

 

2. ConsoleApplication.

2.1. MS Visual Studio 2010, Visual Basic (.1.2).

 

 

.1.2.


2.2. (ConsoleApplication), : Visual Basic - . , , , Ok (.1.3).

 

 


.1.3.

 

3. Visual Basic.

3.1. , (.1.4).

 


.1.4.

 

3.2. Sub Main() End Sub :

Dim A, B, X, Y, X1, Z1, Z2, Z As Double

'

A = 114.6: B = 53.47 * 1000: X = 36: Y = 0.87

'

X1 = X * Math.PI()/ 180 ' x ( PI Math )

Z1 = Math.Sqrt(A / B) + 5.86

' ( Sqrt Math )

Z2 = (Math.Sin(X1) + B * Math.Cos(Y)) ^ 2

'

Console.WriteLine("Z1={0}, Z2={1}", Z1, Z2)

' "Z1= Z1=" (z1) (z2)

Z = Z1 / Z2

' ,

Console.WriteLine("Z={0}", Z)

' "Z="

Console.ReadLine()

' Enter . Enter

 

3.3. , : ConsoleApplication (.1.5).

 


.1.5.

 

4. : (.1.6).

 


.1.6.

 

Enter .

, : - (.1.7). : \ \ (.1.8).

 

 


.1.7.

 

 

 


.1.8.

 

5. ( ).

Console.ReadLine().

:

A = Val(Console.ReadLine()).

A , . Val() .

5.1. , .

5.2. , , .4.

 


1.1. 1.

1 a=3.17 b=5.34 x=4.1
2 a=8.31 b=4.50 x=2.71
3 a=8.31 b=4.50 x=4.412
4 a=5.34 b=4.10
5 a=2.412
6 a=2.412 x=29
7 a=2.71 b=5.34 x=33
8 a=7.31 b=2.17 x=21
9 a=3.115 x=51
10 a=4.115 x=44
11 a=8.133
12 a=8.71 x=78
13 a=8.735 b=2.41
14 a=3.891 x=64
15 a=8.735 x=22
16 a=12.13 x=14
17 u=2.95×104 y=0.88 x=1.22×103
18 a=6.35 b=1.5×102 x=0.56
19 l=2.7×103 m=6.54 x=0.82
20 a=3.42 b=152×102 x=14.5
21 a=4.78 b=2.83×102 x=35.5
22 l=2.8×104 n=1.45 x=2.2 y=8.2
23 p=3.7×103 q=-21.2 b=2.17 x=132
24 a=-1.5×102 b=0.98 x=15.2
25 u=2.72 v=1.045×103 x=0.24
26 m=5.48 n=0.75×102 q=2.8
27 p=2.8×102 q=0.35 m=37.2
28 U=2.75×102 V=1.54
29 p=5.75 q=1.3
30 p=1.3×103 x=4.75 y=23.2

 


2

 

: . .

: k IF.

 

 

2 2.1.

 

(1 )

1. , k () k.

2. -, k 2.1 .

3. , k, 2.1. k.

4. .. 1 3 k () k. k 2.1 .

5. k.

(2 )

1. k () k () k.

2. - , 3- k :

S= P= k = k1

S= P= k = k2

S= P= k = k3

3. . , k 2.1 .

(3 )

k () k () k , k :

S= P= k = k1

S= P= k = k2

S= P= k = k

k K1, k k.

 

k k k=5, 10, 15.



1. - , k .

1.1. : k .

: S k .

1.2. (. 2.1):


 

L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAImE588MA AADbAAAADwAAAGRycy9kb3ducmV2LnhtbESPwWrDMBBE74X+g9hCb43sNMSNEyW0BUPJJcT1ByzW xjaRVsZSY/vvq0Chx2Fm3jC7w2SNuNHgO8cK0kUCgrh2uuNGQfVdvLyB8AFZo3FMCmbycNg/Puww 127kM93K0IgIYZ+jgjaEPpfS1y1Z9AvXE0fv4gaLIcqhkXrAMcKtkcskWUuLHceFFnv6bKm+lj9W wcrPaXU8FR/+tUqzrF6aY2GMUs9P0/sWRKAp/If/2l9awSaF+5f4A+T+FwAA//8DAFBLAQItABQA BgAIAAAAIQDw94q7/QAAAOIBAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1s UEsBAi0AFAAGAAgAAAAhADHdX2HSAAAAjwEAAAsAAAAAAAAAAAAAAAAALgEAAF9yZWxzLy5yZWxz UEsBAi0AFAAGAAgAAAAhADMvBZ5BAAAAOQAAABAAAAAAAAAAAAAAAAAAKQIAAGRycy9zaGFwZXht bC54bWxQSwECLQAUAAYACAAAACEAImE588MAAADbAAAADwAAAAAAAAAAAAAAAACYAgAAZHJzL2Rv d25yZXYueG1sUEsFBgAAAAAEAAQA9QAAAIgDAAAAAA== ">
k
S =0
i =1
S = S + i /(i +1)2
i = i +1
L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAuGnyjMMA AADbAAAADwAAAGRycy9kb3ducmV2LnhtbESPwW7CMBBE75X4B2uReisOPVBIMQghISHKhcAHbOMl Thuvg+0m4e9xpUo9jmbmjWa5HmwjOvKhdqxgOslAEJdO11wpuJx3L3MQISJrbByTgjsFWK9GT0vM tev5RF0RK5EgHHJUYGJscylDachimLiWOHlX5y3GJH0ltcc+wW0jX7NsJi3WnBYMtrQ1VH4XP1bB 12dr+uP8ds2K0nfycPT72+lDqefxsHkHEWmI/+G/9l4rWLzB75f0A+TqAQAA//8DAFBLAQItABQA BgAIAAAAIQDw94q7/QAAAOIBAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1s UEsBAi0AFAAGAAgAAAAhADHdX2HSAAAAjwEAAAsAAAAAAAAAAAAAAAAALgEAAF9yZWxzLy5yZWxz UEsBAi0AFAAGAAgAAAAhADMvBZ5BAAAAOQAAABAAAAAAAAAAAAAAAAAAKQIAAGRycy9zaGFwZXht bC54bWxQSwECLQAUAAYACAAAACEAuGnyjMMAAADbAAAADwAAAAAAAAAAAAAAAACYAgAAZHJzL2Rv d25yZXYueG1sUEsFBgAAAAAEAAQA9QAAAIgDAAAAAA== ">
i <= k
L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEA6mvCIsAA AADcAAAADwAAAGRycy9kb3ducmV2LnhtbERPzYrCMBC+C/sOYRa8aVpXVKpR1oXC4kWsfYChGduy yaQ0UevbmwXB23x8v7PZDdaIG/W+dawgnSYgiCunW64VlOd8sgLhA7JG45gUPMjDbvsx2mCm3Z1P dCtCLWII+wwVNCF0mZS+asiin7qOOHIX11sMEfa11D3eY7g1cpYkC2mx5djQYEc/DVV/xdUqmPtH Wh6O+d5/lelyWc3MITdGqfHn8L0GEWgIb/HL/avj/CSF/2fiBXL7BAAA//8DAFBLAQItABQABgAI AAAAIQDw94q7/QAAAOIBAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1sUEsB Ai0AFAAGAAgAAAAhADHdX2HSAAAAjwEAAAsAAAAAAAAAAAAAAAAALgEAAF9yZWxzLy5yZWxzUEsB Ai0AFAAGAAgAAAAhADMvBZ5BAAAAOQAAABAAAAAAAAAAAAAAAAAAKQIAAGRycy9zaGFwZXhtbC54 bWxQSwECLQAUAAYACAAAACEA6mvCIsAAAADcAAAADwAAAAAAAAAAAAAAAACYAgAAZHJzL2Rvd25y ZXYueG1sUEsFBgAAAAAEAAQA9QAAAIUDAAAAAA== ">
S, k
L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAQ5B9xcIA AADcAAAADwAAAGRycy9kb3ducmV2LnhtbERP32vCMBB+H+x/CDfwZcxUHTI6o5SC6IMw5vT9aM62 mFxKEm39740g7O0+vp+3WA3WiCv50DpWMBlnIIgrp1uuFRz+1h9fIEJE1mgck4IbBVgtX18WmGvX 8y9d97EWKYRDjgqaGLtcylA1ZDGMXUecuJPzFmOCvpbaY5/CrZHTLJtLiy2nhgY7KhuqzvuLVfCz M6U3JfWb8nbcHo6fxftuXig1ehuKbxCRhvgvfrq3Os3PZvB4Jl0gl3cAAAD//wMAUEsBAi0AFAAG AAgAAAAhAPD3irv9AAAA4gEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54bWxQ SwECLQAUAAYACAAAACEAMd1fYdIAAACPAQAACwAAAAAAAAAAAAAAAAAuAQAAX3JlbHMvLnJlbHNQ SwECLQAUAAYACAAAACEAMy8FnkEAAAA5AAAAEAAAAAAAAAAAAAAAAAApAgAAZHJzL3NoYXBleG1s LnhtbFBLAQItABQABgAIAAAAIQBDkH3FwgAAANwAAAAPAAAAAAAAAAAAAAAAAJgCAABkcnMvZG93 bnJldi54bWxQSwUGAAAAAAQABAD1AAAAhwMAAAAA ">
L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAQ5B9xcIA AADcAAAADwAAAGRycy9kb3ducmV2LnhtbERP32vCMBB+H+x/CDfwZcxUHTI6o5SC6IMw5vT9aM62 mFxKEm39740g7O0+vp+3WA3WiCv50DpWMBlnIIgrp1uuFRz+1h9fIEJE1mgck4IbBVgtX18WmGvX 8y9d97EWKYRDjgqaGLtcylA1ZDGMXUecuJPzFmOCvpbaY5/CrZHTLJtLiy2nhgY7KhuqzvuLVfCz M6U3JfWb8nbcHo6fxftuXig1ehuKbxCRhvgvfrq3Os3PZvB4Jl0gl3cAAAD//wMAUEsBAi0AFAAG AAgAAAAhAPD3irv9AAAA4gEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54bWxQ SwECLQAUAAYACAAAACEAMd1fYdIAAACPAQAACwAAAAAAAAAAAAAAAAAuAQAAX3JlbHMvLnJlbHNQ SwECLQAUAAYACAAAACEAMy8FnkEAAAA5AAAAEAAAAAAAAAAAAAAAAAApAgAAZHJzL3NoYXBleG1s LnhtbFBLAQItABQABgAIAAAAIQBDkH3FwgAAANwAAAAPAAAAAAAAAAAAAAAAAJgCAABkcnMvZG93 bnJldi54bWxQSwUGAAAAAAQABAD1AAAAhwMAAAAA ">

 

k S

 

S

 

S = S + i /(i +1)2

1

: i k, S

S k

 

 

. 2.1. - , k

 

2. - (. 2.1) .1.

2.1. K I (Integer) S (Double).

2.2. (Console.WriteLine()).

2.3. K , (Console.ReadLine()), Val().

2.4. S, I.

2.5. S.

2.6. I .

2.7. IF - I K (I≤K). , (Goto) S, S K.

: :

IF <> THEN

<, >

ELSE

<, >

END IF

 

3. K .

4. - , k .

4.1 : k - .

: P k .

4.2 (.2.2):

L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAQ5B9xcIA AADcAAAADwAAAGRycy9kb3ducmV2LnhtbERP32vCMBB+H+x/CDfwZcxUHTI6o5SC6IMw5vT9aM62 mFxKEm39740g7O0+vp+3WA3WiCv50DpWMBlnIIgrp1uuFRz+1h9fIEJE1mgck4IbBVgtX18WmGvX 8y9d97EWKYRDjgqaGLtcylA1ZDGMXUecuJPzFmOCvpbaY5/CrZHTLJtLiy2nhgY7KhuqzvuLVfCz M6U3JfWb8nbcHo6fxftuXig1ehuKbxCRhvgvfrq3Os3PZvB4Jl0gl3cAAAD//wMAUEsBAi0AFAAG AAgAAAAhAPD3irv9AAAA4gEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54bWxQ SwECLQAUAAYACAAAACEAMd1fYdIAAACPAQAACwAAAAAAAAAAAAAAAAAuAQAAX3JlbHMvLnJlbHNQ SwECLQAUAAYACAAAACEAMy8FnkEAAAA5AAAAEAAAAAAAAAAAAAAAAAApAgAAZHJzL3NoYXBleG1s LnhtbFBLAQItABQABgAIAAAAIQBDkH3FwgAAANwAAAAPAAAAAAAAAAAAAAAAAJgCAABkcnMvZG93 bnJldi54bWxQSwUGAAAAAAQABAD1AAAAhwMAAAAA ">

L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAImE588MA AADbAAAADwAAAGRycy9kb3ducmV2LnhtbESPwWrDMBBE74X+g9hCb43sNMSNEyW0BUPJJcT1ByzW xjaRVsZSY/vvq0Chx2Fm3jC7w2SNuNHgO8cK0kUCgrh2uuNGQfVdvLyB8AFZo3FMCmbycNg/Puww 127kM93K0IgIYZ+jgjaEPpfS1y1Z9AvXE0fv4gaLIcqhkXrAMcKtkcskWUuLHceFFnv6bKm+lj9W wcrPaXU8FR/+tUqzrF6aY2GMUs9P0/sWRKAp/If/2l9awSaF+5f4A+T+FwAA//8DAFBLAQItABQA BgAIAAAAIQDw94q7/QAAAOIBAAATAAAAAAAAAAAAAAAAAAAAAABbQ29udGVudF9UeXBlc10ueG1s UEsBAi0AFAAGAAgAAAAhADHdX2HSAAAAjwEAAAsAAAAAAAAAAAAAAAAALgEAAF9yZWxzLy5yZWxz UEsBAi0AFAAGAAgAAAAhADMvBZ5BAAAAOQAAABAAAAAAAAAAAAAAAAAAKQIAAGRycy9zaGFwZXht bC54bWxQSwECLQAUAAYACAAAACEAImE588MAAADbAAAADwAAAAAAAAAAAAAAAACYAgAAZHJzL2Rv d25yZXYueG1sUEsFBgAAAAAEAAQA9QAAAIgDAAAAAA== ">
k
P= 1
i =1
P=P*(1-1 /(i +1)2
i = i +1
i <= k
P, k

 

 

k P

 

P,

 

 

P = P *(1-1/ (i +1)2)

 

1

 

: i k, P

P k

 

 

. 2.2. - , k

 

4.3 k , . 2.

4.4 k .





:


: 2015-10-19; !; : 1223 |


:

:

,
==> ...

1015 - | 830 -


© 2015-2024 lektsii.org - -

: 0.106 .