Подсчитать произведение элементов квадратной матрицы - VB

Узнай цену своей работы

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

Задана квадратная матрица N*N целых чисел. Подсчитать произведение непарных элементов: 1) Выше главной диагонали; 2) Ниже главной диагонали; 3) Обоих случаев.
Такой вопрос как подсчитать произведение непарных элементов, парных я знаю просто шаг в цикле задать 2

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

textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Single, pOver As Single, pUnder As Single
Dim n As Integer, m As Integer, i As Integer, j As Integer
n = InputBox("Введите кол-во строк -", , 5)
m = InputBox("Введите кол-во столбцов -", , 5)
If n <> m Then MsgBox ("Матрица не квадратная!"), vbInformation: Exit Sub
ReDim A(1 To n, 1 To m)
Txta.Text = "": pOver = 1: pUnder = 1
 
For i = 1 To n
    For j = 1 To m
       'A(i, j) = InputBox("A(" & i & j & ") =")
        A(i, j) = Int(Rnd * 9 + 1)
        Txta.Text = Txta.Text & A(i, j) & "    "
    Next j
    Txta.Text = Txta.Text & vbCrLf
Next i
 
Txtb.Text = ""
For i = 1 To n Step 2
    For j = 1 To m Step 2
            'Txtb.Text = Txtb.Text & A(i, j) & "    "
            If j > i Then pOver = pOver * A(i, j)
            If j < i Then pUnder = pUnder * A(i, j)
    Next j
    Txtb.Text = Txtb.Text & vbCrLf
Next i
 
Txtb.Text = Txtb.Text & vbCrLf & "Произведение непарных элементов выше главной диагонали  " & pOver
Txtb.Text = Txtb.Text & vbCrLf & "Произведение непарных элементов ниже главной диагонали  " & pUnder
Txtb.Text = Txtb.Text & vbCrLf & "Произведение непарных элементов выше и ниже главной диагонали " & pOver * pUnder
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.273 из 5
Похожие ответы