Определить число строк в матрице - VB

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

Составила алгоритм и программу для вычисления и вывода на печатьэлементов матрицы zij по формуле Получилось:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim x(1 To 6) As Double, y(1 To 6) As Double
Dim Z1(1 To 6, 1 To 6) As Double, Z2(1 To 6, 1 To 6) As Double
 
For i = 1 To 6
  x(i) = InputBox("Введите x(" & i & ")")
Next i
For j = 1 To 6
  y(j) = InputBox("Введите y(" & j & ")")
Next j
For i = 1 To 6
  For j = 1 To 6
    If x(i) <> 0 And x(i) <> y(j) Then
    
    Z1(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
Z2(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
    MsgBox "Z1(" & i & "," & j & ")=" & Z1(i, j)
    MsgBox "Z2(" & i & "," & j & ")=" & Z2(i, j)
    
    Else
    End If
  Next j
Next i

Помогите определить число строк в матрице , для которых произведение значений элементов положительно.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
k1=0
k2=0
For i = 1 To 6
p1=1
p2=1
  For j = 1 To 6
p1=p1*Z1(i, j)
p2=p2*Z2(i, j)
  Next j
if p1>0 then k1=k1+1
if p2>0 then k2=k2+1
Next i
MsgBox "K1=" & K1
MsgBox "K2=" & K2

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

15 голосов , оценка 4.2 из 5

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

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

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