Упорядочить элементы главной диагонали - 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
Похожие ответы