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

  1. Найти произведение элементов строк квадратной матрицы Р размерности М, в которых на главной диагонали расположены отрицательные числа. Заменить соответствующие диагональные элементы на полученные произведения. Помогите написать код программыыы((((


textual

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

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.000 из 5



Похожие ответы
  1. Дана матрица 3х3 Найти сумму элементов первой строки и первого столбца?

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. В массиве A[N] найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)

  1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

  1. Составьте программу, которая находит 4 последовательных натуральных числа, произведение которых равно 1680.

  1. Дан массив размера N. Утроить в нем вхождения всех элементов с нечетными номерами (1, 3, …). Условный оператор не использовать.

  1. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.

  1. Дан массив размера N и целое число K (1 <= K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0.

  1. Как блокировать текстовое поле - я знаю. Но вот иной подход... Чтобы можно было вводить текст, нужно предварительно ввести точку. (рабочий код прилагается) Вопрос Как сделать, для того чтобы ввести любой текст надо предварительно ввести ТРИ ТОЧКИ? Что-то никак не с ориентируюсь...

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.