Произведение элементов на побочной диагонали и сумму элементов главной диагонали - VB

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

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

Помогите, пожалуйста: Для матрицы (N*M) вычислить произведение элементов на побочной диагонали и сумму элементов главной диагонали. Всё это в Visual Basic.

Решение задачи: «Произведение элементов на побочной диагонали и сумму элементов главной диагонали»

textual
Листинг программы
Option Explicit
Private Sub Form_Activate()
Dim a(), b()
Dim i&, j&, n&
Dim s#, p#
 
    'вводим размер матрицы, например: 5
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Ввод числа"))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 1 до 10", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int(20 * Rnd) + 1
            Text1.Text = Text1.Text + Format(a(i, j), " 0.0")
        Next
    Next
        
    'считаем произведение по элементам побочной диагонали
    For i = 1 To n
        j = n - i + 1
        p = IIf(p = 0, a(i, j), p * a(i, j))
      Next
    Print "Произведение по эл-м побочной диагонали p = "; p
   
   'считаем сумму по элементам главной диагонали
    For i = 1 To n
        j = i
        s = IIf(s = 0, a(i, j), s + a(i, j))
    Next
    Print "   Сумма по эл-м главной диагонали s = "; s
End Sub

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


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

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

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