Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы - VB

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

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

Дана матрица А(n,n). Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы, разделив его на максимальный элемент вспомогател

Решение задачи: «Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы»

textual
Листинг программы
Option Explicit
Dim n As Integer, i As Integer, proizv As Double, maxVD As Integer, j As Integer
Dim A() As Integer, VD() As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 10    ' InputBox("Enter n")
proizv = 1
ReDim A(n, n), VD(n) ' Размеры массива А -  n-строк, n-столбцов
For i = 1 To n
   For j = 1 To n
       A(i, j) = Int(Rnd * 10 + 1) 'Заполняем массив случайными числами
       Print A(i, j); vbTab;
       Next j
   Print
   VD(i) = A(i, (n + 1) - i)
Next i
maxVD = A(1, n)
Print "Дополнительная диагональ"
  For i = n To 1 Step -1
    proizv = proizv * VD(i)
    Print VD(i);
  Next i
Print
Print "Произведение элементов дополнительной диагонали  ="; proizv
 For i = 1 To n
    If maxVD < VD(i) Then maxVD = VD(i)
 Next i
Print "Максимальный элемент дополнительной диагонали ="; maxVD
Print "Результат ="; proizv / maxVD
End Sub

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


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

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

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