Найти произведение элементов строк квадратной матрицы Р - VB
Формулировка задачи:
Помогите пожалуйста решить задачу!
Задача:Найти произведение элементов строк квадратной матрицы Р раз¬мерности М, в которых на главной диагонали расположены отрицательные числа. Заменить соответствующие диагональные элементы на полученные произведения.
Проанализировать выполнение программы на примере.
а матриц -p
2 1 4 6
3 -1 2 2
4 1 -2 6
5 3 1 -2
Заранее спасибо)
Решение задачи: «Найти произведение элементов строк квадратной матрицы Р»
textual
Листинг программы
- 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
