. 4.8.2-5.
Sub Pr825(ByRef x(,) As Single, _ ByRef xmin As Single, _ ByRef imin As Integer, ByRef jmin As Integer) Dim i, j, m As Integer m = x.GetLength(0) 1 imin = 0: jmin = 1: xmin = x(0,1) For i = 0 To m For j = i + 1 To m If x(i,j) < xmin Then xmin = x(i,j): imin = i jmin = j End If Next j Next i End Sub |
. 4.8.2-5. Pr825()
4.8.2-5
4.8.2-6. , f(5,2) , .
. 4.8.2-6.
f(,) . f(,) . : , . , i, f(i,0) f(i,2).
:
Sub Pr826() Dim i, j, r, c1, c2 As Integer Dim f(,) As Integer={{1,2,3}, {4,5,6}, {7,8,9}, {10,11,12}, _ {13,14,15},{16,17,18}} c1 = 0: c2 = 2 ' vivodIntMac20(f, TextBox1)' . Pr826(f, c1, c2) '.1- 2- vivodIntMac20(f, TextBox2) ' End Sub ' Sub (ByRef f(,) As Integer, ByVal cc1 As Integer, _ ByVal cc2 As Integer) Dim ArrayRank, RawCount, i, r As Integer ArrayRank = f.Rank: RawCount = f.GetLength(ArrayRank - 2) For i = 0 To RawCount - 1 r = f(i,cc1): f(i,1) = f(i,cc2): f(i,cc2) = r Next i End Sub |
. 4.8.2-6. Pr826() 4.8.2-6
4.8.2-7. , x : x(i,j) = 2*(i - 2) 2 - (j - 2)2).
. 4.8.2-7.
' x(,) Sub Pr827(ByRef x(,) As Single) Dim i, j, m As Integer m = x.GetLength(0) - 1 For i = 0 To m For j = 0 To m x(i, j) = CSng(2 * (i - 2) ^ 2 - (j - 2) ^ 2) Next Next End Sub |
. 4.8.2-7. Pr827()
4.8.2-7
4.8.2-4.8. , , b(,).
|
|
Sub Pr828(ByRef b(,) As Single, _ ByRef a() As Integer) Dim Rank,RC,CC,j,i,n As Integer Rank = b.Rank RC = b.GetLength(Rank - 2) - 1 CC = b.GetLength(Rank - 1) - 1 ReDim a(CC) Dim m As String For j = 0 To CC n = 0 For i = 0 TO RC If b(i,j) > 0 Then n = n + 1 Next i a(j)= n Next j End Sub |
. 4.8.2-8. Pr828()
4.8.2-8
, b(,) , Pr828().
. 4.8.2-5.
b(,) , , . . , (), b(,).