Получить вектор Х1,Х2,Х3,...,Хn по правилу : Хj=1 - VB

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

Получить вектор Х1,Х2,Х3,...,Хn по правилу : Хj=1, если в j- Ом столбец матрицы А есть хотя бы один элемент, превышающий заданное значение С , иначе - Хj=0

Решение задачи: «Получить вектор Х1,Х2,Х3,...,Хn по правилу : Хj=1»

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

                            Function Vector(Matr() as double, c as double) As integer ()
Dim V() As double
    n%=Ubound(Matr,2)
    m%=Ubound(Matr,1)
    Redim V(1 to n%) as integer
    For i%=1 to n%
         For j%=1 to m%
              if Matr(j%,i%) > c then 
                 V(i%)=1
                 Exit for
              end if
         Next j%
    Next i%
    Vector=V
End Function
                        

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

12 голосов , оценка 4.083 из 5

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