( , , . . , .
. . .
3.1. 3
. | [, b] | . | [,b] | ||
[0;1] | [0;1] | ||||
[1;2] | [3;4] | ||||
[0.1;1.1] | [-1;0] | ||||
[0.1;1.1] | [1;2] | ||||
[2;3] | [0.1;1.1] | ||||
[0;1] | [0;1] | ||||
[-2;-1] | [0;1] | ||||
[0.1;1.1] | [1;2] | ||||
[0;1] | [1;2] | ||||
[-0.5;0.5] | [-1;0] | ||||
[0.1; 1.1] | [2;3] | ||||
[0.2;1.2] | [0;1] | ||||
[0.1; 1,1] | [-0.5; 0.5] | ||||
[0;1] | [2; 3] | ||||
[1;2] | [0;1] |
4
: .
: .
4 4.1, 4.2.
(1 )
1. - Y=f(X). f(X) 4.1 .
2. Y X, Y=f(X). X 4.1 .
3. , .
(2 )
1. - Y, , Y. Y X, : Y=f(X). f(X) 4.1 .
2. -, .1 . X 4.1 .
3. , .
(3 )
1. - , 4.2 .
2. -, .1 .
3. , .
|
|
:
Y = |
X:
X = {-6.2; -0.8; 0.3; 0.5; -1.3; 4.1}.
(1 )
1. - Y=f(X).
1.1. :
X N ,
Y.
:
N (X, Y).
1.2. - (. 4.1):
N |
Y(i) , X(i) |
N X |
X(i), Y(i) |
i= 1, N, 1 |
. 4.1.
2. Y X, Y=f(X).
2.1. (Integer): N, i.
2.2. (N) X.
2.3. N: X(N), Y(N) Single:
Dim X(N) As Single
Dim Y(N) As Single
2.4. i 1 N.
2.5. X.
2.6. Y , , :
If X(I) < - MATH.PI() Then
Y(I) = X(I) / MATH.PI() + 1
Else
If X(I) <= MATH.PI() Then
Y(I) = Math.Sin(X(I))
Else
Y(I) = -X(I) / MATH.PI() 1
EndIf
EndIf
2.7. X Y.
2.8. .
3. .
3.1. , X.
3.2. :
I | ||||||
X | -6,2 | -0,8 | 0,3 | 0,5 | -1,3 | 4,1 |
Y | -0.9735228 | -0.7173561 | 0.2955202 | 0.4794255 | -0.9635582 | -2.305072 |
(2 )
1. - (YMAX) (YMIN) Y, (NYMAX, NYMIN), (SY) Y.
1.1. :
Y N 4.1.
:
YMAX, YMIN, NYMAX, NYMIN, SY.
1.2. - (.4.2):
N |
Y(N) |
SY=SY+Y(i) |
Y(i)>YMAX |
YMAX=Y(i) NYMAX=i |
i=1, N, 1 |
SY =0 |
YMAX=Y (1) NYMAX =1 YMIN=Y (1) NYMIN =1 |
Y(i)<YMIN |
YMIN=Y(i) NYMIN=i |
: SY, YMAX, NYMAX, YMIN, NYMIN |
. 4.2.
2. - (. 4.2), .1, , .
4.1. 4
[1] | [2] |
[3] | [4] |
[5] | [6] |
[7] | [8] |
[9] | [10] |
[11] | [12] |
[13] | [14] |
[15] | [16] |
[17] | [18] |
[19] | [20] |
[21] | [22] |
[23] | [24] |
[25] | [26] |
[27] | [28] |
[29] | [30] |
|
|
4.2. 4 (3 )
N . . : . | |
N . : , [0, 1], 0.5. . | |
N . , [1, 2], : . | |
K N . : , , : . | |
N . , , : . | |
N . . | |
N . , 5 , : . | |
H N . , q. bn = p qn-1 | |
N : , , , , , . | |
, N . , , . | |
N . . | |
N . , 30, , 30, . | |
N . : , , . | |
N . , 50, 50. , : . | |
N . , . | |
N . . | |
N . , [ , b ]. , . | |
N . . | |
N . , 5, . , . | |
N . , . | |
N : , [ , b ], , . . | |
N . . | |
N , . | |
N . . | |
N . , . | |
, . | |
N . , 10, , 10, . | |
K N . : , 50, : . | |
N . , t , : t . | |
N , . |
|
|
5
: . : .
: ; .
I ( 1 - 9 )
1. - ( ).
2. .
3. .
II ( 10 - 26 )
1. - : SUB, - FUNCTION.
2. .
3. .
III ( 27 - 30 )
1. - : , - FUNCTION SUB.
2. .
3. .
:
A(N,M).
1. A.
2. B(N), A.
3. D(M), A.
(I )
1. :
(N+1) A, (M+1) A,
A(,) (N+1)*(M+1) .
:
AMAXN - A, B() - , A, D() - , A.
2. - (. 5.1)
AMAXN |
AMAXN=A(N,i) |
AMAXN < A(N,i) |
AMAXN=A(N,0) AMAXN |
N, M |
(N+1)*(M+1) A |
i= 0, M, 1 |
B(i)=0 B(i) i - A() |
B(i)=B(i) + A(i, j) B(i) A(i, j) i - A() |
B(i) |
i= 0, N, 1 |
j= 0, M, 1 |
|
|
D(j)=0 D(j) j - A() |
D(j)=D(j) + A(i, j) D(j) A(i,j) j - A() |
D(j) |
j= 0, M, 1 |
i= 0, N, 1 |
. 5.1.
3. :
Module Module1
,
Sub Main()
,
Dim N, M, I, J As Integer
Dim A(,) As Single = {{7,-1,2,0},{4,5,-3,1},{-6,11,8,-4}}
(,) (Single) , = , 4
N = A.GetUpperBound(0)
N 1- (0) (,)
M = A.GetUpperBound(1)
M 2- (1) (,)
Console.WriteLine("N={0} M={1}", N, M)
N M
Console.WriteLine(" A N+1={0}", N + 1)
Console.WriteLine(" A M+1={0}", M + 1)
A , , N+1 M+1, 0 N-1, 0 M-1.
Dim B(N), D(M) As Single
Dim Z As Single
Dim AMAXN As Single
I = 0: AMAXN = A(N, I)
AMAXN , A(,), N- 0-
For I = 0 To M
If AMAXN < A(N, I) Then AMAXN = A(N, I)
Next I
Console.WriteLine("")
Console.WriteLine(" AMAXN ={0}", AMAXN)
Console.WriteLine("")
Console.WriteLine(" A():")
For I = 0 To N
B(I) = 0
For J = 0 To M
B(I) = B(I) + A(I, J)
Next J
Console.WriteLine("B({0})={1}", I, B(I))
Next I
Console.WriteLine("")
Console.WriteLine(" A():")
For J = 0 To M
D(J) = 0
For I = 0 To N
D(J) = D(J) + A(I, J)
Next I
Console.WriteLine("D({0})={1}", J, D(J))
Next J
Console.ReadLine()
End Sub
End Module
,
4. . 5.2.
. 5.2.
(II-III )
II III FUNCTION / SUB. , . . , . , , , ( ) . .
- , . Sub End. :
Sub name [(_)]
[ ]
[Exit Sub]
[ ]
End Sub
, - . End Sub Exit Sub ( ).
. . , , . . , . , :
|
|
[ByVal | ByRef] varname[()] [As type]
:
- (ByVal , ByRef , ),
- Varname ,
- As type , .
:
Sub ShowMessage(message As String)
MsgBox message
End Sub
ShowMessage, message, String .
Call. ShowMessage :
Call ShowMessage (" ").
: " ". ShowMessage, " ". message " ". MsgBox . , , Visual Basic .
- , . , . :
Function (_)] [As type]
[ ]
[ = ]
[Exit Function]
[ ]
[ = ]
End Function
:
Function Square(number As Integer) As Long
Square = number * number
End Function
:
b = Square (5).
Square ( b 25).
1. : A (N,M).
: (AMAXN) A, B (), A, D (), A.
2. -.
N, M |
(N+1)*(M+1) A |
BSUM(N,M,A,B) |
FMAXN |
FMAXN(N,M,A) |
(N +1) B() |
B(N), D(M) |
DSUM (N,M,A,D) |
(M +1) D() |
. 5.3. -
3. .
Module Module1
,
Sub Main()
,
Dim N, M, I, J As Integer
Dim A(,) As Single = {{7,-1,2,0}, {4,5,-3,1}, {-6,11,8,-4}}
(,) (Single) , = , 4
N = A.GetUpperBound(0)
N 1- (0) (,)
M = A.GetUpperBound(1)
M 2- (1) (,)
Console.WriteLine("N={0} M={1}", N, M)
Console.WriteLine(" A N+1={0}", N + 1)
Console.WriteLine(" A M+1={0}", M + 1)
(K1) (K2) A , , N+1 M+1, 0 K1-1, 0 K2-1.
Dim B(N), D(M) As Single
Dim Z As Single
Z = AMAXN(N, M, A)
AMAXN(N, M, A)
Console.WriteLine("")
Console.WriteLine(" AMAXN ={0}", Z)
Console.WriteLine("")
Console.WriteLine(" A():")
Call BSUM(N, M, A, B)
BSUM(N, M, A, B)
For I = 0 To N
Console.WriteLine("B({0})={1}", I, B(I))
Next I
Console.WriteLine("")
Console.WriteLine(" A():")
Call DSUM(N, M, A, D)
DSUM(N, M, A, D)
For J = D.GetLowerBound(0) To M
Console.WriteLine("D({0})={1}", J, D(J))
Next J
Console.ReadLine()
EndSub
Function AMAXN(ByRef N As Integer, ByRef M As Integer, _
ByRef A(,) As Single) As Single
AMAXN(N, M, A), (N, M, A) (ByRef), (Single)
Dim J As Integer
Dim MAX As Single
MAX = A(N, 0)
For J = 0 To M
If A(N, J) > MAX Then MAX = A(N, J)
Next J
AMAXN = MAX
AMAXN
EndFunction
Sub BSUM(ByRef N As Integer, ByRef M As Integer, _
ByRef A(,) As Single, ByRef B() As Single)
BSUM(N, M, A, B), (N, M, A, B) (ByRef)
Dim I, J As Integer
Dim S As Single
For I = 0 To N
S = 0
S , 0.
For J = 0 To M
S = S + A(I, J)
S , A(I, J)
Next J
B(I) = S
B(I) B() S.
Next I
EndSub
BSUM(N, M, A, B)
Sub DSUM(ByRef N As Integer, ByRef M As Integer, _
ByRef A(,) As Single, ByRef D() As Single)
DSUM(N, M, A, D), (N, M, A, D) (ByRef)
Dim I, J As Integer
Dim S As Single
For J = A.GetLowerBound(1) To M
S = 0
S , 0.
For I = A.GetLowerBound(0) To N
S = S + A(I, J)
S , A(I, J)
Next I
D(J) = S
D(I) D() S.
Next J
EndSub
DSUM(N, M, A, D)
EndModule
,
4. . 5.2.
5
1
=
.
2
. , .
=
3
. , [ a, b ].
=
4
. .
Z =
5
. j - .
=
6
.
Z =
7
=
.
8
. .
=
9
.
Z =
10
A. , bij = =
11
Z =
, . . A, Z , .
12
X = Y =
Z, .
13
E
E =
B, :
bij=
14
=
Z, :
zij =
15
, , . D, dij = (aij+bij)*cij
A = B = C =
16
Z =
, , Z, .
17
=
, . B .
18
X = Y =
X Y.
19
.
, bij = aij2 i*j.
B .
20
A =
, (amin); , bij = aij + min.
21
=
, .
22
Z
(zmax) Y, yij = zij - zmax.
23
X =
Y, X.
24
X Y
.
25
(max) , bij = max - aij
26
(min) D, .
27
. S, . ,
28
. , . 5 .
=
29
. , bi j A, , aij.
aij |
30
Z. , .
Y, Z.