Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
jukula
0 / 0 / 0
Регистрация: 26.09.2011
Сообщений: 30
#1

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

23.03.2012, 21:25. Просмотров 892. Ответов 1
Метки нет (Все метки)

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

Помогите написать код программыыы((((
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2012, 21:25
Ответы с готовыми решениями:

Найти произведение элементов строк квадратной матрицы Р
Помогите пожалуйста решить задачу! Задача:Найти произведение элементов строк...

Найти произведение элементов, которые лежат ниже главной диагонали матрицы
Код работает, но он выводит произведения строчек ниже главной диагонали. А мне...

Найти произведение элементов главной диагонали и сумму элементов побочной диагонали
Помогите пожалуйста: я осилил только блок схему, нужен код: Найти...

Подсчитать произведение отрицательных элементов главной диагонали матрицы.
Дана матрица 6х6. Подсчитать произведение отрицательных элементов главной...

Найти разность произведений элементов выше главной диагонали и элементов ниже побочной диагонали матрицы
Помогите пожалуйста, Надо найти разность двух произведений: произведения...

1
SoftIce
comment ca va
10443 / 3952 / 1008
Регистрация: 27.07.2011
Сообщений: 9,552
Завершенные тесты: 1
23.03.2012, 22:48 #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2012, 22:48

Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали
Для заданной матрицы NxN определить произведение элементов, расположенных на...

Найти произведение и количество отрицательных элементов матрицы В размерности m×n
Найти произведение и количество отрицательных элементов матрицы В размерности...

Определить индексы минимального элемента на главной диагонали квадратной матрицы
Определить индексы минимального элемента на главной диагонали квадратной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru