, : R= - / *100%, : a - ; b - ; R- . | |
(v) , : V=P*S/M M=38526000 - ; P=12865.7 - ; S=2976 - . | |
, : A=F+V, F=T/Q, V=N/Q - ; F - ; V - ; T - ; N - ; Q - . | |
: T=(IN-IP)*100/IP IN - =113.6; IP - =118.3; . | |
Ep, : Ep=(Q1-Q2)/(P1-P2), Q1,Q2 - ca (%); P1, P2 - (%). |
14
: TC=FC+VC TC - ; FC ; VC - . : P=C-((A+Z1+Z2)/B) A ; B ; C ; P ; Z1 - ; Z2 - . | |
, 250 ., - 1000 ., - 100 . Y=(D*100)/P Y- ; D-; P- . |
2.8
VBA . , .
VBA 2 : .
1 , - , .
: , .
( ):
If <> Then < 1>
( ):
If <> Then < 1> Else < 2>
If, Then, Else - (, , );
<> - ;
< 1>, < 2> - VBA.
. <>. True (), < 1>, < 2> . False (), , < 1> , < 2>.
2 ( ). : , .
|
|
( )
If <> Then
<1>
<2>
.
< n>
End If
End If - If.
:
If <> Then
<1>
<2>
.
< n>
Else
<1>
<2>
.
< n>
End If
1.
. ax2 + bx + c = 0.
:
1 :
a, b, c Î R
: 1, 2 Î R.
2 :
Private Sub yravnenie ()
a = InputBox("a=", a)
b = InputBox("b=", b)
c = InputBox("c=", c)
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
MsgBox (x1)
MsgBox (x2)
Else
MsgBox (" ")
End If
End Sub
3 .
If , , .
IF . , - , .
If:
If <1> Then
If <2> Then
<1>
<2>
.
< n>
Else
<1>
<2>
.
< n>
End If
End If
2.
. y1 = a+2*b; y2 = a*b+c; y3 = c2 + 1.
:
1 :
a, b, c Î R
: Max Î R.
2 :
Function Max(a,b,c)
y1 = a+2*b
y2 = a*b+c
y3 = c^2+1
If y1 > y2 Then
If y1 > y3 Then y = y1 Else y = y3
Else
If y2 > y3 Then y = y2 Else y = y3
End If
End Function
3 .
If . : Else If, Else.
VBA If. , . : IfThenElseIf. If , False.
:
If <1> Then
<1>
ElseIf <2> Then
<2>
Else
<.3>
EndIf
3.
. , . , 15.
|
|
15 -
, . | , % |
0 9999 | |
10000 19999 | |
20000 39999 | |
40000 |
:
1 :
Î Z.
: Î R.
2 :
Function ()
If <= 9999 Then
= * 0.08
ElseIf <= 19999 Then
= * 0.1
ElseIf <= 39999 Then
= * 0.12
Else
= * 0.14
End If
End Function
3 .
2
: -, . 2 16, 17 (2 )
16
, | |
a=2.85, b=1.56, x=0.63 | |
a=12.5, b=0.03, x=5.256 | |
a=8.7, b=-5.2, x=8.1 |
16
x=1.204, a=0.8 | |
a=3.08, x=-0.004 | |
a=16.01, b=18.1, x=5.93 |
16
a=7.02, b=16.02, x=1.085 | |
x=2.4, a=2.65, b=4.24, c=1.83 | |
a=0.36, b=1.18, x=1.16 | |
x=0.12, a=0.111, b=0.348 | |
16
x=-0.37 | |
17
. : = ( )/365. . . = | |||||||||||||||||
.
:
| |||||||||||||||||
, . ,
| |||||||||||||||||
, . :
<> = < > * < > - < >*< >.
: 5000 . 20%, 13%.
|
17
(M) M=Q/D, Q - ; D - . : (M=1); (M<1); : (M>1). | |||||||||||||||
.
:
< >=<>-<>*<.>
<>=< >*< >.
< > = < > <>
| |||||||||||||||
, 1 , , (t) 160, z=1345.5*160-(s+k-75900)*12%-1%-1%-5.4%, z=1345.5*t-(s+k-75900)*12%-1%, z - ; s - ; - . | |||||||||||||||
:
|
17
. k=1/(1-mc), mc=1, k=1/ms I=K/MS, I - ; ms - : ms = (s2-s1)/(y2-y1), (s2-s1) - ; y2-y1 - ; k - : k =1/ms =1/(1-mc); mc - : mc =(c2-c1)/(y2-y1); (c2-c1) - . | |
G, G = [(S1+E*K1)-(S2+E*K2)]*O, - P2 - P1, G = [(S1+E*K1)-(S2+E*K2)+(P2-P1)]*O, S1, S2 - ; K1, K2 - ; E - ; O - . | |
10000 , ; , 1 < 600 , 300 , 1 >= 600 , 400 . : 1 = /- , S - 1 ; Z - ; Zp - 1 . | |
: 70%, 50%, 25%. . . | |
= 167, = 12, = 1654, 1 = 165, = 154, = 176 . . 1 1, : = -((+1+)/(*1)), , : = -((*+1+*k1)/(k1*)). |
17
. 3% . , 5% ( 20 ) . 400 7%, 2000 10%, 15%. | |
: - , =100000; - , =200; . - , . = 50; . - , . = 100; - , = 100. , k=0.7 = -(+.+.*k)/k*, = -(k*+.+0.7*.)/0.7* | |
, , . 20%, 25%, 35%. . , . 500 1500 5% , 5000 7%, 10%. | |
, . $100 1000% , $500 3000%, $1000 6000% $3000 7000%. | |
-, . , . 5- 2% , 10- 4%, 15- 1% 15-. 20- . | |
, . , 10% , , 8% - , 7% - . 1% 2%, . |
|
|
17
. , , ( 10% , 8%, 20 5%, 20 45 -3%, 45 50 5%, 50 65 8%. 65 10% 65- . |
2.9 ()
VBA . , , .
:
Select Case <_>
Case _1
<1>
<2>
.
Case _n ()
< n>
End Select
Select, Case, End - VBA (, ,
);
<_> - ( );
<_> - : <_>
<>;
_n - <_> ,
<_>;
<> - VBA,
_n
_.
.
< _ >, < _ > , , . , . , , , End Select.
Select Case . Is To.
Is , Is.
To .
1.
. , .
:
1 :
ÎZ.
2 :
Sub DemoSelect ()
Dim x As Integer
x = InputBox (" ")
Select Case x
Case 8 To 10
MsgBox ("")
Case 6 To 7
MsgBox ("")
Case 4 To 5
MsgBox ("")
Case Is < 4
MsgBox ("")
End Select
End Sub
3 -.
. MsgBox , .
3
|
|
: -, . 3 18 (2 )
18
, | ||
( 1 7). , . 1 7, . | ||
18
C ( 1 12). , . 1 8, " ". | |
(n>0). , : " n ". , . | |
( 1 25). , : 0-1 2-3 4-6 7-10 11-16 17 18 25 . | |
( 0 99). , , : 56 ; 77 . .. , . | |
( 0 99). , (-): 01-03 + , 46 .. | |
- . , 351200 .. | |
, n- . n . | |
, . | |
( 0 10). , , . | |
, . . | |
, , . 0 12, . |
18
. , , . | |
, , 8 , 21 .. | |
k : k k. | |
, . 1 , 2 .. | |
, . | |
, 01, 02 .. | |
- , , ( ) 600 0. | |
, n. |
2.10
VBA () ().
,
, , .