.


:




:

































 

 

 

 





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:

 






:


: 2016-11-24; !; : 518 |


:

:

! . .
==> ...

1012 - | 842 -


© 2015-2024 lektsii.org - -

: 0.06 .