________________________
: __________________________________________________________
__________________________________________________________________
_____________________ __________
()
___________ __________ ..
() () ()
____________
()
2013
() . ..
2
___ _________________________
__ 2__ 140.100 _________ __ ___
__________________ __________________________________
( )
10
: _ _____
:
VisualBasicScript. , : 1. . . ([2], 2). 2. ([2] 3). 3. ([2], 4). 4. ([2], 5) 5. ([2] 6). 6. ([2], 8). |
: 4; ( - 3 , 1,5, , - 2 ); - ; - ; - 1,25 ; - imesNewRoman; - , ; - 13; - . 01.04-2005
:
1. .. . . , - , 2010. 468 .
2. . . . Visual Basic Scripting Edition [ ]: . . , 2009. http://www.agtu.ru:8900/SCRIPT/IT-012/scripts/serve_home .
3. . . 01.04-2005. . . 2006.104 .
_ 04.06.2013 . _
____________ .. ____ 16.12.2016 ____
() (, ..) ()
1 . . . 5
2 ... 7
3 .. 9
4 .. 12
5 .. 16
6 .. 18
|
|
.. 19
1 . . .
Const N = ""
Const O = ""
Const S = ""
Dim x,y
x=S&","&N&","&O
y=N&" "&O&" "&S
MsgBox N&vblf&o&vblf&S&vblf&" "&vblf&x&vblf&y
1.1
x=S&","&N&","&O
y=N&" "&O&" "&S
.
1.2 -
Dim A(5)
Dim B(5)
A(0)="0"
A(1)="1"
A(2)="2"
A(3)="3"
A(4)="4"
B(0)="5"
B(1)="6"
B(2)="7"
B(3)="8"
B(4)="9"
Msgbox " "&vblf&"x"&" "&"0 1 2 3 4"&vblf&"y"&" "&"5 6 7 8 9"&vblf&""&vblf&A(0)&A(1)&A(2)&A(3)&A(4)&vblf&B(4)&B(3)&B(2)&B(1)&B(0)
2.2
X Y
2.2 -
3
Dim x, y
x=Inputbox (" ")
x=Eval(x)
If x=12 or x=1 or x=2 then
y=""
elseif x>2 and x<6 then
y=""
elseif x>5 and x<9 then
y=""
elseif x>8 and x<12 then
y=""
Elseif x<1 or x>12 then
y=" "
End if
msgbox x&vblf&y,,""
3.3
If x=12 or x=1 or x=2 |
elseif 5<x<9 |
elseif 8<x<12 |
elseif 2<x<6 |
Y = |
Y = |
Y = |
Y = |
Y = |
Y |
3.2 -
4
( while)
eps=1e-7
a=1
s=0
n=1
Do While Abs(a)>eps
a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)
s=s+a:n=n+1
Loop
MsgBox(" Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n),, " 10 "
( until)
eps=1e-7
a=1
s=0
n=1
Do Until Abs(a)<=eps
a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)
s=s+a:n=n+1
Loop
MsgBox(" Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n),, " 10 "
( while)
eps=1e-7
a=1
s=0
n=1
Do
|
|
a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)
s=s+a:n=n+1
Loop While Abs(a)>eps
MsgBox(" Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n),, " 10 "
( until)
eps=1e-7
a=1
s=0
n=1
Do
a=((-1)^(n+1))/(4*n-1)+((-1)^(n+1))/(4*n-3)
s=s+a:n=n+1
Loop Until Abs(a)<=eps
MsgBox(" Pi = " & (4*s)/sqr(2) & vbLf & "n = " & n),, " 10 "
4.1
( While)
4.2
( c until)
4.3
( while)
4.4
( until)
eps, a, n, s |
While/Until Abs (A) >eps |
a=((-1^(n+1))/(4*n-1))+((-1^(n+1))/(4*n-3)) S = S + a; n = n +1 |
π |
eps, a, n, s |
While/Until Abs (A) >eps |
a=((-1^(n+1))/(4*n-1))+((-1^(n+1))/(4*n-3)) S = S + a; n = n +1 |
π |
4.5 - 4.6 -
n=3
a=1
b=10
S=0
ReDim x(n)
Randomize
For i=1 to n
x(i)=b-(b-a)*rnd
Next
For i=1 to n-1
S=S+(x(i)/x(i+1))
Next
M=" "
For Each iks in x
m=M&iks&vblf
Next
Msgbox m &vblf&S,," "
5.1
a, b, n, s |
For i=1 to n |
x(i)=b-(b-a)*rnd |
For i=1 to n-1 |
S=S+(x(i)/x(i+1)) |
5.2 -