Вычислить сумму значений элементов главной диагонали массива - VB

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

Составить алгоритм и программу для вычисления матрицы я сделала. А второе задание не могу сделать: Определить сумму значений элементов главной диагонали матрицы.

                    Листинг программы
                
 
                        
                          
                    
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
                            Листинг программы 
                        
 
                        
                          
                    
For i = 1 To m
  For j = 1 To m
      A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print A(i, j); vbTab;
      if i = j then Gl = Gl + A(i, i)
  Next j
  Print
Next i

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

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

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

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

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