21
Сентябрь
2011
Сформировать вектор содержащий диагональные элементы матрицы
Сформировать вектор содержащий диагональные элементы матрицы
Dim i As Integer, j As Integer, m As Integer, z As Integer, Max As Integer Dim A(6, 6) As Integer, B(6) As Integer Private Sub Command1_Click() ' построение матрицы For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(8 * Rnd + 1) Picture1.Print A(i, j); Next j Picture1.Print Next i Call diagonal 'вызов подпрограммы, выполняющей выборку диагонали ' сортировка по убыванию For i = 0 To 5 Max = B(i) For j = i To 5 If B(j) > Max Then Max = B(j) z = j End If Next j B(z) = B(i) B(i) = Max Picture3.Print Max; Next i End Sub -------------------------------------------- Sub diagonal() ' выборка диагонали For i = 0 To 5 B(i) = A(i, i) Picture2.Print B(i); Next i End Sub