Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
dask
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 1
1

Найти произведение элементов строк квадратной матрицы Р

23.03.2012, 19:06. Просмотров 672. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить задачу!
Задача:Найти произведение элементов строк квадратной матрицы Р раз¬мерности М, в которых на главной диагонали расположены отрицательные числа. Заменить соответствующие диагональные элементы на полученные произведения.
Проанализировать выполнение программы на примере.
а матриц -p
2 1 4 6
3 -1 2 2
4 1 -2 6
5 3 1 -2
Заранее спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2012, 19:06
Ответы с готовыми решениями:

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

Подсчитать произведение элементов квадратной матрицы
Задана квадратная матрица N*N целых чисел. Подсчитать произведение непарных...

Сформировать вектор b(j) и найти произведение элементов матрицы
Сформировать вектор B=(b(1),b(2),...,b(m)),каждый элемент которого равен...

Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы
Дана матрица А(n,n). Найти произведение элементов, принадлежащих...

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

3
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
24.03.2012, 09:28 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
List1.Clear
Dim p() As Integer, b() As Long, m As Integer, s As String
m = InputBox("m")
 
ReDim p(1 To m, 1 To m), b(1 To m)
For i = 1 To m
b(i) = 1
For j = 1 To m
 s = "p(" & Str(i) & "," & Str(j) & ")"
 p(i, j) = InputBox(s)
 b(i) = b(i) * p(i, j)
Next j
p(i, i) = b(i)
Next i
 
For i = 1 To m
s = ""
For j = 1 To m
  s = s & Str(p(i, j))
Next j
List1.AddItem s
Next i
1
SoftIce
es geht mir gut
10453 / 3966 / 1013
Регистрация: 27.07.2011
Сообщений: 9,631
Завершенные тесты: 1
24.03.2012, 09:44 3
sco43, внимательно прочитай задание. Не в каждой строке на главной диагонали может быть отрицательное число.
1
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
24.03.2012, 11:44 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
List1.Clear
Dim p() As Integer, b() As Long, m As Integer, s As String
m = InputBox("m")
 
ReDim p(1 To m, 1 To m), b(1 To m)
For i = 1 To m
b(i) = 1
For j = 1 To m
 s = "p(" & Str(i) & "," & Str(j) & ")"
 p(i, j) = InputBox(s)
 b(i) = b(i) * p(i, j)
Next j
If p(i, i) < 0 Then p(i, i) = b(i)
Next i
 
For i = 1 To m
s = ""
For j = 1 To m
  s = s & Str(p(i, j))
Next j
List1.AddItem s
Next i
предыдущий код заменяте все элементы диагонали, а этот только отрицательные

Добавлено через 16 минут
А еще лучше кажется так:
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
35
36
Private Sub Command1_Click()
List1.Clear
Dim p() As Integer, b() As Long, m As Integer, s As String, s1 As String
m = InputBox("m")
 
ReDim p(1 To m, 1 To m), b(1 To m)
For i = 1 To m
s1 = ""
b(i) = 1
For j = 1 To m
 
 s = "p(" & Str(i) & "," & Str(j) & ")"
 p(i, j) = InputBox(s)
 s1 = s1 & Str(p(i, j))
 b(i) = b(i) * p(i, j)
Next j
List1.AddItem s1
If p(i, i) < 0 Then p(i, i) = b(i)
Next i
List1.AddItem ""
 
s = ""
For i = 1 To m
  s = s & Str(b(i))
Next i
List1.AddItem s
List1.AddItem ""
 
For i = 1 To m
s = ""
For j = 1 To m
  s = s & Str(p(i, j))
Next j
 List1.AddItem s
Next i
End Sub
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2012, 11:44

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

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

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


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

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

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