. 4.8.2-9.
(,). () .
| Sub Pr829(ByRef x(,) As Single, _ ByRef y(,) As Single) Dim ArrayRank, n, m, j, i As Integer ArrayRank = x.Rank n = x.GetLength(ArrayRank - 2) - 1 m = x.GetLength(ArrayRank - 1) - 1 ReDim y(m,n) For i = 0 To n For j = 0 To m y(j,i) = x(i,j) Next j Next i End Sub |
. 4.8.2-9. Pr829()
4.8.2-9
4.8.2-10. , (n,m) y(m,n).
. 4.8.2-10.
x(n,m) y(m,k) p(m,k), , i - j - , i - - x(n,m) j - - y(m,k).
- a(n) - b n 
. , :
| Sub Pr8210(ByRef x(,) As Single _ ByRef y(,) As Single _ ByRef p(,) As Single) Dim nx, mx, ky, j, i, k As Integer Dim XRank, YRank As Integer Dim s As Single XRank = x.Rank: YRank = y.Rank mx = x.GetLength(0)- 1 nx = x.GetLength(1)- 1 ny = y.GetLength(0)- 1 ky = y.GetLength(1)- 1 If XRank=2 And YRank=2 And nx=ny Then ReDim p(mx,ky) For i = 0 To mx For j = 0 To ky s = 0 For k = 0 To nx S = s + x(i,k) * y(k,j) Next k p(i,j)= s Next j Next i vivodSngMac19(p, ListBox1) Else TextBox1.Text=" " End If End Sub |
. 4.8.2-10. Pr8210()
4.8.2-10
: , 0 m, , 0 k. x(i,t) y(t,j) , 0 n.
. 4.8.2-10 (mx*nx)
(nx*ky). , .
4.8.2-11. , x, , : x(i,j)=2*(i-2)2-(j-2)2, , , , . .
|
|
|
x(,) . xmin xmax , imin, jmin imax, jmax ( ).
. 4.8.2-11.
| Option Strict On Option Explicit On Public Class Form1 ' x(,) Sub Form(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 ' ListBox Sub vivod1(ByRef x(,) As Single, 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),"0.000") If x(i, j) < 0 Then z1 = Space(2) + z1 Else z1 = Space(3) + z1 End If z = z + z1 Next LB.Items.Add(z) Next End Sub ' TextBox Sub vivod3(ByVal Z As Double, ByRef T As TextBox) T.Text = CStr(Z) End Sub ' Integer TextBox Sub vivod4(ByVal Z As Integer, ByVal T As TextBox) T.Text = CStr(Z) End Sub ' max , ' Sub MaxN(ByRef x(,) As Single, ByRef xmax As Single, _ ByRef imax As Integer, ByRef jmax As Integer) Dim i, j, m As Integer m = x.GetLength(0) - 1 imax = 1: jmax = 0: xmax = x(1, 0) For i = 0 To m For j = 0 To i - 1 If x(i, j) > xmax Then xmax = x(i, j): imax = i: jmax = j End If Next Next End Sub ' min , ' Sub MinV(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 Next End Sub ' max min Sub Ob(ByRef x(,) As Single, _ ByVal imax As Integer, ByVal jmax As Integer, _ ByVal imin As Integer, ByVal jmin As Integer) Dim r As Single r = x(imax, jmax): x(imax, jmax) = x(imin, jmin) x(imin, jmin) = r End Sub ' Sub Pr8211(ByRef x(,) As Single, ByRef xmin As Single, _ ByRef xmax As Single) Dim imin, jmin, imax, jmax As Integer Form(x) ' x(,) vivod1(x, ListBox1) MaxN(x, xmax, imax, jmax) vivod3(xmax, TextBox1) vivod4(imax, TextBox2) vivod4(jmax, TextBox3) MinV(x, xmin, imin, jmin) vivod3(xmin, TextBox4) vivod4(imin, TextBox5) vivod4(jmin, TextBox6) Ob(x, imax, jmax, imin, jmin) vivod1(x, ListBox2) ' End Sub Private Sub Button1_Click(sender As Object, _ e As EventArgs) Handles Buton1.Click Dim xx(3, 3) As Single Dim xm1, xm2 As Single Pr8211(xx, xm1, xm2) End Sub End Class |
. 4.8.2-11. 4.8.2-11
|
|
|
1. ,
1) 2
2) 4
3) 3
4)
2. :
1) ;
2)
3)
4)
