Определить является ли данная квадратная матрица симметричной относительно главной диагонали - VB

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

Определить является ли данная квадратная матрица симметричной относительно главной диагонали. Как вообще работать с диагоналями?

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

textual
Sub main()
'матрицу слепите сами, если из Excel`я не подходит
a = Selection.Value
If Is_Sym(a) Then
  MsgBox "матрица симметричная"
Else
  MsgBox "матрица не симметричная"
End If
End Sub
 
Function Is_Sym(a) As Boolean
For r = LBound(a, 1) To UBound(a, 1)
  For c = LBound(a, 2) To UBound(a, 2)
    If a(r, c) <> a(c, r) Then Exit Function
  Next c
Next r
Is_Sym = True
End Function

7   голосов, оценка 4.143 из 5


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