Упорядочить элементы главной диагонали - VB

Формулировка задачи:

Как можно упорядочить элементы главной диагонали по возрастанию? Сама матрица:

Код к задаче: «Упорядочить элементы главной диагонали - VB»

textual
Private Sub Command4_Click()
For k = 1 To n - 1
For i = 1 To n - 1
If A(i, i) > A(i + 1, i + 1) Then t = A(i, i): A(i, i) = A(i + 1, i + 1): A(i + 1, i + 1) = t
Next i, k
For i = 1 To n
For j = 1 To n
Picture1.Print Format(A(i, j), "0.0"),
Next j
Picture1.Print '
Next i
End Sub

8   голосов, оценка 3.625 из 5


СОХРАНИТЬ ССЫЛКУ