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