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

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

Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы на минимальный из них. Сформировать матрицу 7х7 элементов, заполненную согласно схеме. Вывести ее на экран, развернув на 90 градусов по часовой стрелке.

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

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

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

11 голосов , оценка 3.727 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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