4.1. Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали - VB

Узнай цену своей работы

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

прошу помощи)
прошу помощи) программка должна быть в бэйсике

Решение задачи: «4.1. Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной относительно главной диагонали»

textual
Листинг программы
Function chkSym(Matr() as integer) As Boolean
   n%=Ubound(Matr,1)
   chkSym=True
    for i%=1 to n%-1
        For j%=i%+1 to n%
             If Matr(i%,j%) <> Matr(j%,i%) then
                ChkSym=False
                Exit Function
             End if
        Next j%
    Next i%  
End Function

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

9   голосов , оценка 3.778 из 5
Похожие ответы