-
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):
k |
S =0 |
i =1 |
S = S + i /(i +1)2 |
i = i +1 |
i <= k |
S, k |
|
|
k S
S
S = S + i /(i +1)2
1
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 ">
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 .