ЛР VBA Excel
.pdf9
.
.
|
10 |
1. |
|
.
.
16
1
1.Y(N).
2.2 A(N),
.
2
1. P(N) , 3.
2. 3 X(M),
.
3
1.P(N) .
2.X(N),
.
4
1.A(N) , 5.
T(N).
5
1.Z(N) .
2.3 B(N).
81
6
1.P(N).
2.100 ), 5.
7
1.Q(N), .
2.)
.
8
1.P(N), .
2.B X(N).
9
1. Y(M).
2. B(N)
A.
10
1.R(N).
2.) .
17
1
F(N). :
1.,
. .
2..
.
3., 5.
.
, 3.
.
2
F(N). :
82
1. ,
. .
2..
.
3., 7.
.
.
.
|
3 |
Q(N). : |
|
1. |
5 , |
|
. . |
2. |
. |
|
. |
3..
.
,
11. .
4
Q(N). :
1. |
3 3, |
|
|
. . |
|
2. |
|
. |
|
. |
|
, ,
.
.
4..
.
5
P(N). :
1. ,
7. .
2., 3.
.
83
3. ,
,
, 5.
.
4..
6
F(N). :
1.,
. .
2..
.
3.,
2. .
. ,
.
7
Q(N). :
1. |
5, |
|
|
, , , . |
|
|
. |
|
2. |
|
|
|
. . |
|
3..
.
,
9.
.
8
Q(N). :
1.5 3,
. .
2.
. .
, ,
84
.
.
4..
.
9
P(N). :
1. ,
, , 1.
.
2.,
3. .
, ,
. ,
.
4..
.
10
Y(N). :
1.,
. .
2..
.
3.,
2. .
. ,
.
( )
, .
– .
|
|
|
||
4 |
–3 |
2 |
4 |
5 |
6 |
3 |
2 |
4 |
0 |
7 |
1 |
2 |
6 |
0 |
12 |
24 |
25 |
8 |
4 |
85
0 4 5 8 3
, , , A(i, j), X(4, |
3), P(2×i, |
|
j+1), – , – . |
|
|
Dim. |
|
|
Dim (10, 10) As |
‘ |
|
Dim (1 To 10, 1 To 10) As |
‘ |
|
, |
|
, |
. |
|
|
1. Excel.
For i = 1 To N
For j = 1 To M
A(i, j) = Cells(i, j)
Next j
Next i
‘N – , M – .
2.Excel
, .
Randomize
For i = 1 To N
For j = 1 To M
Cells(i, j) = Int(Rnd * 100 – 50)
A(i, j) = Cells(i, j)
Next j
Next i
Excel
:
For i = 1 To N For j = 1 To M
Cells(i, j) = A(i, j) Next j
Next i
86
, 4´4,
:
11 12 13 14
21 22 23 24
31 32 33 34
41 42 43 44
.
. 7.
, I + J = N + 1
, I = J
. 7.
.
. 8.
I, J – , .
I = J |
|
I < J |
|
I+J < N+1 |
I+J = N+1 |
|
|
|
|||
|
|
|
|
||
|
I > J |
|
|
I+J > N+1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
. 8.
.
. 9.
87
(I<J) and (I+J<N+1)
I
(I>J) and (I+J<N+1) |
I |
II |
(I<J) and (I+J>N+1) |
III
(I>J) and (I+J>N+1)
. 9.
1. X(N, N)
4 |
0 |
0 |
0 |
5 |
1 |
4 |
0 |
5 |
2 |
1 |
1 |
4 |
2 |
2 |
1 |
5 |
3 |
4 |
2 |
5 |
3 |
3 |
3 |
4 |
5, 4, I
– 0, II – 2, III – 3, IV – 1.
Option Explicit Sub PR22()
Dim a(10, 10) As Integer, N As Integer, i As Integer, j As Integer N = Val(InputBox(" N"))
Range(Cells(1, 1), Cells(100, 100)).Select ‘
Selection.Clear |
‘ |
Cells(1, 1).Select |
‘ |
For i = 1 To N |
|
For j = 1 To N
If i + j = N + 1 Then a(i, j) = 5
If i = j Then a(i, j) = 4
If i < j And i + j < N + 1 Then a(i, j) = 0
If i < j And i + j > N + 1 Then a(i, j) = 2
If i > j And i + j > N + 1 Then a(i, j) = 3
If i > j And i + j < N + 1 Then a(i, j) = 1
Next j
Next i
88
Cells(1, 1) = " "
For i = 1 To N
For j = 1 To N
Cells(i + 1, j) = a(i, j)
Next j
Next i
End Sub
2. X(N, N)
1 |
0 |
0 |
0 |
… N |
0 |
2 |
0 |
0 |
… 0 |
0 |
0 |
3 |
0 |
… 0 |
. |
. . . |
… . |
||
0 |
2 |
0 |
0 |
… 0 |
1 |
0 |
0 |
0 |
… N |
,
,
.
For i = 1 To N
For j = 1 To N
X(i, j) = 0
If i = j Then X(i, j) = i
If i + j = N + 1 Then X(i, j) = N + 1 – i
Next j
Next i
3. Y(N, N)
1 |
1 |
1 |
1 |
… 1 |
1 |
0 |
0 |
0 |
… 1 |
. |
. |
. |
. |
… . |
1 |
0 |
0 |
0 |
… 1 |
1 |
0 |
0 |
0 |
… 1 |
1 |
1 |
1 |
1 |
… 1 |
For i = 1 To N For j = 1 To N
If i = 1 Or i = N Or j = 1 Or j = N Then Y(i, j) = 1 Else Y(i, j) = 0 Next j
Next i
89
4. Z(N, N)
1 |
0 |
0 |
0 |
0 |
… 0 |
1 |
2 |
0 |
0 |
0 |
… 0 |
1 |
2 |
3 |
0 |
0 |
… 0 |
1 |
2 |
3 |
4 |
0 |
… 0 |
. . . . . . . |
|||||
1 |
2 |
3 |
4 |
5 |
… 0 |
1 |
2 |
3 |
4 |
5 |
… N |
For i = 1 To N
For j = 1 To N
If i >= j Then Z(i, j) = j Else Z(i, j) = 0
Next j
Next i
5. Q(N, N)
1 2 1 2 …
2 1 2 1 …
1 2 1 2 …
. . . . …
1 2 1 2 …
For i = 1 To N
For j = 1 To N
If (i +j) mod 2 = 0 Then Q(i, j) = 1 Else Q(i, j) = 2
Next j
Next i
, , ,
, , ,
, ,
, (
).
S = 0 : P = 1 : K = 0 : Min = 32000 : Max = – 32000
For i = 1 To N
For j = 1 To N
S = S + x(i, j)
P = P * x(i, j)
K = K + 1
If x(i, j) < Min Then Min = x(i, j)
90