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

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

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

Решение задачи: «Является ли квадратная матрица симметричной относительно побочной диагонали»

textual
                            Листинг программы 
                        

                            Function IsSymAlt(a) As Boolean
For r = 1 To UBound(a, 1) - 1
 For c = 1 To UBound(a, 2) - r
  If a(r, c) <> a(UBound(a, 1) - c + 1, UBound(a, 2) - r + 1) Then Exit Function
 Next
Next
IsSymAlt = True
End Function
 
Sub main()
a = Range(Cells(1, 1), Cells(3, 3)).Value
MsgBox IsSymAlt(a)
End Sub
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы