Найти произведение элементов строк квадратной матрицы Р размерности М, в которых на главной диагонали расположены отрицательные числа - VB
Формулировка задачи:
Найти произведение элементов строк квадратной матрицы Р размерности М, в которых на главной диагонали расположены отрицательные числа. Заменить соответствующие диагональные элементы на полученные произведения.
Помогите написать код программыыы((((
Решение задачи: «Найти произведение элементов строк квадратной матрицы Р размерности М, в которых на главной диагонали расположены отрицательные числа»
textual
Листинг программы
Private Sub Command1_Click() Dim P() As Single, i As Integer, j As Integer, n As Integer, pr As Single, c() As Boolean Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = InputBox(" n =", , 6) ReDim P(1 To n, 1 To n), c(1 To n) ' Размеры массива А - n-строк, n-столбцов For i = 1 To n For j = 1 To n P(i, j) = Int(Rnd * 11 - 5) 'Заполняем массив случайными числами If i = j And P(i, j) < 0 Then ForeColor = vbRed Else ForeColor = vbBlue Print P(i, j); vbTab; Next j Print Next i For i = 1 To n pr = 1 If P(i, i) < 0 Then For j = 1 To n pr = pr * P(i, j) Next j P(i, i) = pr: c(i) = True End If Next i Print For i = 1 To n For j = 1 To n If i = j And c(i) Then ForeColor = vbRed Else ForeColor = vbBlue Print P(i, j); vbTab; Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д