Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
dask
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 1
#1

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

23.03.2012, 19:06. Просмотров 610. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти произведение элементов строк квадратной матрицы Р (VB):

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

Подсчитать произведение элементов квадратной матрицы - Visual Basic
Задана квадратная матрица N*N целых чисел. Подсчитать произведение непарных элементов: 1) Выше главной диагонали; 2) Ниже главной...

Сформировать вектор b(j) и найти произведение элементов матрицы - Visual Basic
Сформировать вектор B=(b(1),b(2),...,b(m)),каждый элемент которого равен наибольшему по модулю значению,не превосходящему заданного K,В...

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

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

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

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
10256 / 3767 / 967
Регистрация: 27.07.2011
Сообщений: 9,112
Завершенные тесты: 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
24.03.2012, 11:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2012, 11:44
Привет! Вот еще темы с ответами:

Найти произведение и количество отрицательных элементов матрицы В размерности m×n - Visual Basic
Найти произведение и количество отрицательных элементов матрицы В размерности m×n. помогите, пожалуйстааа написать программу.. )))

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

Найти сумму элементов чётных строк матрицы - Visual Basic
Дан двумерный массив А(м*н), найти сумму элементов чётных строк. Подскажите, пожалуйста, нет ли у кого примера по данной теме?

Найти сумму элементов четных и нечетных строк матрицы - Visual Basic
Помогите с написание кода програмы.) Дана матрица (4 ряда, 6 столбцов), найти суму элементов четных и нечетных строк. Код для Visual...


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

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

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