L = 2πR
1 |
2 |
4 |
5 |
6 |
3 |
π = 3,14 |
R |
R, L |
L=2 π R |
Private Sub Command1_Click()
Dim R As Single, L As Single
Const Pi As Single = 3.14
R = Val(Text1.Text)
L = 2 * Pi * R
Text2.Text = Str(L)
End Sub
6. :
:
R = 10 L = 62,831
I
ܻ
:
3
X
..
XXX
XXX-000
-
20__
1
1. :
X, Y=SinX, Y = X2 - .
:
X ,
:
Y , ,
3. :
1 |
6 |
2 |
X |
Y = X2 |
X, Y |
3 |
5 |
4 |
7 |
X < O |
Y = Sin X |
4. :
5. :
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("x=")
If x < 0 Then
x = Sin(x)
Else
x = x ^ 2
End If
Print "x=" & x, " y=" & y
End Sub
6. :
:
= -1,6 Y = SinX = -0,99
X = 2 Y = X2 = 4
2
, .
P |
t |
:
t , .
:
t , ,
P , .
2. :
x, y |
P = 0 |
0≤t≤2,5 |
3 |
2 |
t |
1 |
t<0 |
4 |
6 |
P = -1 |
5 |
7 |
8 |
P = 1 |
9 |
|
|
Private Sub Command1_Click()
Dim t As Single, P As Single
t = InputBox("t=")
If t < 0 Then
P = -1
ElseIf 0 <= t And t <= 2.5 Then
P = 0
Else
P = 1
End If
Print " t=" & t & " P=" &Format(P, "0.00")
End Sub
6. :
.
I
ܻ
:
4
˻
X
..
XXX
XXX-000
-
20__
1
Y = CosX X, 0 1,0 c 0,1
: X0 ,
;
Xk ,
;
dX ,
.
: X - , ;
Y- , .
Y = CosX, X0 ≤ X ≤ Xk dX
1
2
3
4
8
5
6
7
X0, Xk, dX
X = X0
X ≤Xk
Y = Cos X
X, Y
X = X + dX