Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали - VB
Формулировка задачи:
Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали, если
* N нечетное, или сумму всех элементов побочной диагонали в противоположном случае (N <= 7).
Желательно в Visual Basic 3.0
Решение задачи: «Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Single Dim n As Integer, i As Integer, j As Integer Dim S As Single, P As Double, St As String n = InputBox("Введите размер квадратной матрицы n =", "Ввод данных ", 5) ReDim A(1 To n, 1 To n) P = 1 Randomize ' Инициализация генератора случайных чисел St = "Матрица" & vbCrLf For i = 1 To n For j = 1 To n A(i, j) = Int(Rnd * 9 + 1) 'заполняем матрицу случайными числами 'Следующая строка нужна, если требуется заполнение матрицы вручную 'A(i, j) = InputBox("Введите A(" & i & "," & j & ")", "Ввод данных ", Int(Rnd * 9 + 1)) St = St & A(i, j) & vbTab Next j St = St & vbCrLf Next i If n Mod 2 = 0 Then For i = 1 To n S = S + A(i, i) 'Считаем сумму элементов на главной диагонали Next i St = St & "n - чётное" & vbCrLf & "Сумма элементов на главной диагонали " & S Else For i = 1 To n P = P * A(i, n - i + 1) 'Вычисляем произведение элементов побочной диагонали Next i St = St & "n - нечётное" & vbCrLf & "Произведение элементов побочной диагонали " & P End If MsgBox St Print St End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д