Одинаковы ли все элементы матрицы или нет - VB

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

kak napisatj kod shtobi programma opredeljala matrici vse elementi odinakovi ili net?

Решение задачи: «Одинаковы ли все элементы матрицы или нет»

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

                            function MatricaOdinakova(matr) as boolean
dim m,m1
for each m in matr
  if not isempty(m1)then
    if m<>m1 then exit function
  endif
  m1=m
next
MatricaOdinakova=true
end function
                        

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

13 голосов , оценка 3.538 из 5

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