Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д