Найти произведение элементов строк квадратной матрицы Р размерности М, в которых на главной диагонали расположены отрицательные числа - 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

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

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