1) - ,
2) - ,
3)
4)
A(2,3)
1) 6
2) 12
3) 2
1)
2)
3)
4)
For ,
1)
2)
3)
4)
,
1)
2)
3)
4)
1)
2)
3)
4)
1)
2)
3)
4)
, (2)
For i = 0 To 7 For j = 0 To 5 TextBox1.Text= TextBox1.Text &a(i) & Next j TextBox1.Text= TextBox1.Text & vbCrLf Next i |
1)
2)
3)
4)
Dim A (3,5) As Single
1)
2)
3)
4)
Dim a (0 To 3,0 To 4), i, j As Single For i = 0 To 3 For j = 0 To 4 a(i,j) = i*j Next j Next i TextBox1.Text = CStr(a(i,j)) |
1)
2) 12
3) 20
4) 0
(2)
For i =0 To 4 r = a(i,2): a(i,2) = a(i,4): a(i,4) = r Next i |
1)
2) 2- 4-
3) 2- 4-
4) 2- 4-
(2)
s = 0 For i = 0 To 5 For j = 0 To i -1 s = s + a(i,j) Next j Next i TextBox1.Text =s= & CStr(s) |
1)
2)
3)
4)
(2)
For i = 0 To 5 For j = 0 To 5 If j Mod 2 = 0 Then a(i,j) = 0 End If Next j Next i |
1)
2)
|
|
3)
4)
16.
4.8.4.
: , , , .
,
1) .
2) : ; ; ; .
3) .
4) .
1) ( 8).
2) -8.
3) . 4.8.4-1.
4) .
5) , .
6) .
7) , , , . . , .
8) , .
9) .
10) .
4.8.4-1
1) | N(10,10). N M(10,max), max N, M . M. . |
2) | L(10,8) : r [0;1]. . . |
3) | L(9,9). . . |
4) | N(12,12) : , . , . |
5) | N(15,10) , [-5;10]. . . |
6) | K(8,8) : Kij=8∙(i - j)+j. ( ), , , |
7) | K(6,3) , r [0;1]. L(6,3), K : , .. |
8) | N(12,12). . , . , . |
9) | M(8,8). . . |
10) | K(10,12) , [-5;10]. L. L. |
11) | L(7,9). . . |
12) | (4,5) : , r [0;1]. k (0<= k <=5) ( k ). M. |
13) | t(4,4) : , , , 10. |
14) | Z(10,4). . |
15) | A(9,3) : . B. B. |
16) | M(6,5) , [-15;5]. : , .. |
17) | B(4,4). , . |
18) | N(10,10). K(10), Ki , i- N , . |
19) | X(4,4). Y(4), Yi i- ; , Yi=1. |
20) | Z(10,3) , [-2;15]. P, Pi , i- ; , Pi=100. |
21) | F(10,3). R, Rj , j- ; , Rj= -1. |
22) | R(8,3) , . . |
23) | N(5,7) : k (0<= k <=5) ( k ). |
24) | M(5,7) , . , . |
25) | K(8,4). K , . |
26) | M(7,7) : , r [0;1]. K = {-5, -3, -1, 1, 3}. M , K. M. |
27) | K(3,3) L(3,3). M K L. M. |
28) | X(4,4) : . , . |
29) | K(7,8) : r [0;1]. , . |
30) | A(4,4) B(4,4). R(4,4) A B. R. |
|
|
|
|
4.8.4.4.
1) .
2) , , , .
3) .
4) .
5) , :
5.1) ;
5.2) ;
5.3) ;
5.4) .
6) .
7) .
1) :
.
.
2) , , , :
., 1405, 13.
3) :
a(m,n) , , . , , .
4) :
:
;
;
.
:
;
;
;
;
;
.
5) , :
5.1) :
, . 4.8.4-1.
. .1.8-1. 8:
5.2) :
. 4.8.4-2 .
. 4.8.4-2
Form1 | Text | Form1 |
Label3 | Font | Times New Roman, Bold (), 14-point (14 ) |
ForeColor | ||
Name | Label3 | |
Text | ||
Label4 | Font | Times New Roman, Bold (), 10-point (10 ) |
Name | Label4 | |
Text | ||
Label5 | Font | Times New Roman, Bold (), 10-point (10 ) |
Name | Label5 | |
Text | A(m, n) A(m,n), | |
Label6 | Font | Times New Roman, Bold (), 14-point (14 ) |
ForeColor | ||
Name | Label6 | |
Text | a(m,n) | |
Label7 | Font | Times New Roman, Bold (), 14-point (14 ) |
ForeColor | ||
Name | Label7 | |
Text | : | |
Label8 | ForeColor | Red() |
Name | Label8 | |
Text | - (m) (n) | |
Label10 | Font | 10 |
Name | Label10 | |
Text | ||
Label11 | AutoSize | False |
ForeColor | ||
Name | Label11 | |
Text | ||
Label12 | Font | Times New Roman, Bold (), 10-point (10 ) |
Name | Label12 | |
Text | m= | |
Label13 | Font | Times New Roman, Bold (), 10-point (10 ) |
Name | Label13 | |
Text | n= | |
ComboBox1 | Items () | |
Name | ComboBox1 | |
ComboBox2 | Items () | max |
Name | ComboBox2 | |
ListBox1 | Name | ListBox1 |
Text | ListBox1 | |
ListBox2 | Name | ListBox2 |
Text | ListBox2 | |
TextBox1 | Name | TextBox1 |
Text | ||
TextBox2 | Name | TextBox2 |
Text | ||
Button2 | Name | Button2 |
Text | ||
Button3 | Name | Button3 |
Text |
|
|
5.3) :
4.8.
5.4) :
. 4.8.4-2
Public Class Form1 Dim a(,) As Integer ' (. ) TextBox Function vvod(ByVal T As TextBox) As Integer Return CInt(T.Text) End Function ' z Sub PrintL(ByRef x() As Integer, ByVal z As String, _ ByRef LB As ListBox) Dim i As Integer LB.Items.Add(" ") LB.Items.Add(z) Dim y As String = "" For i = 0 To UBound(x) y = y + CStr(x(i)) + Space(4) Next i LB.Items.Add(y) End Sub ' z ListBox Sub vivodlist(ByVal c As Integer, ByVal z As String, _ ByRef Lb As ListBox) Lb.Items.Add(" ") z = z + CStr(c) Lb.Items.Add(z) End Sub ' ListBox Sub PrintMatr(ByRef x(,) As Integer, ByRef LB As ListBox) Dim i, j, m, n As Integer Dim z, z1 As String m = x.GetLength(0) - 1 n = x.GetLength(1) - 1 LB.Items.Clear() For i = 0 To m z = "" For j = 0 To n z1 = Format(x(i, j), "000") If x(i, j) < 0 Then z1 = Space(2) + z1 Else z1 = Space(3) + z1 End If z = z + z1 Next j LB.Items.Add(z) Next i End Sub ' ( ' ComboBox1) Sub vvodMatr(ByRef a(,) As Integer, _ ByVal index As Integer) Dim i, j, m, n As Integer Dim r1, r2 As String Dim y As String m = a.GetLength(0) - 1 n = a.GetLength(1) - 1 Select Case index Case 0 ' For i = 0 To m For j = 0 To n r1 = Str(i): r2 = Str(j) y = InputBox(" a(" + r1 + _ "," + r2 + "=", _ " A()") a(i, j) = CInt(y) Next j Next i Case 1 ' For i = 0 To m For j = 0 To n a(i, j) = CInt(Rnd(1) * 100 - 50) Next j Next Case 2 ' For i = 0 To m For j = 0 To n a(i, j) = (i + j) * 25 - 150 Next j Next i End Select End Sub ' - Sub m5(ByRef a(,) As Integer, ByRef pob As Integer, _ ByRef flag As Integer) Dim RawCount, ColumnCount As Integer Dim i, mm, nn As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) pob = 0 flag = 0 mm = RawCount - 1 nn = ColumnCount - 1 If nn = mm Then For i = 0 To mm pob = pob + a(i, mm - i) Next i Else flag = 1 ' End If End Sub ' - Sub m4(ByRef a(,) As Integer, ByRef Glav As Integer, _ ByRef flag As Integer) Dim RawCount, ColumnCount As Integer Dim i, nn, mm As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) Glav = 0 flag = 0 mm = RawCount - 1 nn = ColumnCount - 1 If nn = mm Then For i = 0 To mm Glav = Glav + a(i, i) Next i Else flag = 1 ' End If End Sub ' ' ( ) Public Sub m3(ByRef a(,) As Integer, _ ByRef stolb() As Integer) Dim RawCount, ColumnCount As Integer Dim i, j, nn, mm As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) mm = RawCount - 1 nn = ColumnCount - 1 ReDim stolb(0 To nn) For j = 0 To nn stolb(j) = 0 For i = 0 To mm stolb(j) = stolb(j) + a(i, j) Next i Next j End Sub ' ' ( ) Public Sub m2(ByRef a(,) As Integer, _ ByRef strok() As Integer) Dim RawCount, ColumnCount As Integer Dim i, j, mm, nn As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) mm = RawCount - 1 nn = ColumnCount - 1 ReDim strok(0 To mm) For i = 0 To mm strok(i) = 0 For j = 0 To nn strok(i) = strok(i) + a(i, j) Next j Next i End Sub ' Public Sub m1(ByRef a(,) As Integer, ByRef sum As Integer) Dim RawCount, ColumnCount As Integer Dim i, j, mm, nn As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) sum = 0 mm = RawCount - 1 nn = ColumnCount - 1 For i = 0 To mm For j = 0 To nn sum = sum + a(i, j) Next j Next i End Sub ' Public Sub m0(ByRef a(,) As Integer, ByRef max As Integer,_ ByRef imax As Integer, ByRef jmax As Integer) Dim RawCount, ColumnCount As Integer Dim i, j, nn, mm As Integer RawCount = a.GetLength(0) ColumnCount = a.GetLength(1) mm = RawCount - 1 nn = ColumnCount - 1 max = a(0, 0) imax = 0 jmax = 0 For i = 0 To mm For j = 0 To nn If a(i, j) > max Then max = a(i, j) imax = i jmax = j End If Next j Next i End Sub Private Sub Button1_Click(sender As Object, _ e As EventArgs) Handles Button1.Click ListBox1.Items.Clear() ListBox2.Items.Clear() TextBox1.Text = "" TextBox2.Text = "" End Sub Private Sub ComboBox1_SelectedIndexChanged _ (sender As Object, e As EventArgs) _ Handles ComboBox1.SelectedIndexChanged Dim index, m, n As Integer m = vvod(TextBox1) '- n = vvod(TextBox2) '- ReDim a(0 To m, 0 To n) ListBox1.Items.Clear() ListBox2.Items.Clear() index = ComboBox1.SelectedIndex ' ComboBox1 ' ( ) vvodMatr(a, index) PrintMatr(a, ListBox1) End Sub Private Sub ComboBox2_SelectedIndexChanged _ (sender As Object, e As EventArgs) _ Handles ComboBox2.SelectedIndexChanged Dim s, f As Integer Dim imax, jmax As Integer Dim z As String = "" Dim mas() As Integer Select Case ComboBox2.SelectedIndex Case 0 ' m0(a, s, imax, jmax) z = " Max ()=" vivodlist(s, z, ListBox2) z = " =" vivodlist(imax, z, ListBox2) z = " =" vivodlist(jmax, z, ListBox2) Case 1 ' m1(a, s) z = " ()=" vivodlist(s, z, ListBox2) Case 2 ' . m2(a, mas) z = " ()=" PrintL(mas, z, ListBox2) Case 3 ' . m3(a, mas) z = " a() " PrintL(mas, z, ListBox2) Case 4 ' . m4(a, s, f) If f = 0 Then z = " =" Else z = ". . " End If vivodlist(s, z, ListBox2) Case 5 ' . m5(a, s, f) If f = 0 Then z = " . =" Else z = ". . " End If vivodlist(s, z, ListBox2) End Select End Sub End Class |
|
|
. 4.8.4-2. 4.8: