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


Оставить комментарий

Я не робот.