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

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

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

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

Подсчитать произведение элементов квадратной матрицы
Задана квадратная матрица 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
comment ca va
10420 / 3922 / 999
Регистрация: 27.07.2011
Сообщений: 9,484
Завершенные тесты: 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 ряда, 6 столбцов), найти...


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

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

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