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
