Найти произведение элементов, которые лежат ниже главной диагонали матрицы

@mrkrupik · Регистрация: 27.06.2015

Студворк — интернет-сервис помощи студентам

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Base 1
Private Sub Command1_Click()
n = InputBox("n=", "Кол-во строчек", 4): m = InputBox("m=", "Кол-во столбцов", 4)
ReDim A(n, m): x = Array(-0.45, 4, 8, -11, -4, 2, 3, 4.6, 1.8, -3, 5.9, 11, 12, -1.5, 6.7, 8): k = 1
With MSFlexGrid1
.Rows = n + 1: .Cols = m + 1: .ColWidth(0) = 400
For i = 1 To n: For j = 1 To m: A(i, j) = x(k): k = k + 1
If j = 1 Then .ColWidth(j) = 700 Else .ColWidth(j) = 600
.TextMatrix(i, 0) = i: .TextMatrix(0, j) = j: .TextMatrix(i, j) = A(i, j)
Next j: Next: .Row = 1: .Col = 1: .RowSel = i - 1: .ColSel = j - 1: .FillStyle = flexFillRepeat
.CellAlignment = flexAlignCenterCenter
End With
For i = 1 To n
p = 1
For j = 1 To m
If i > j Then p = p * A(i, j)
Next j: List1.List(i - 1) = p
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

Shersh · 13.03.2016, 17:33

Visual Basic
1
2
3
4
5
6
7
P=1
For i = 1 To n
'p = 1
For j = 1 To m
If i > j Then p = p * A(i, j)
Next j': List1.List(i - 1) = p
Next i: MSGBOX P

@mrkrupik · 13.03.2016, 17:42 **[ТС]**

Неплохо, спасибо. А что бы вместо MsgBox ответ был в List2, как это сделать?

@mrkrupik · 15.03.2016, 11:05 **[ТС]**

Нужно найти произведение элементов, которые лежат ниже главной диагонали (i>j)
Ошибка в том, что программа перемножает числа (которые ниже гл. диагонали) между собой, а мне нужно произведение ВСЕХ чисел ниже гл. диагонали.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Base 1
Private Sub Command1_Click()
n = InputBox("n=", "Кол-во строчек", 4): m = InputBox("m=", "Кол-во столбцов", 4)
ReDim A(n, m): x = Array(-0.45, 4, 8, -11, -4, 2, 3, 4.6, 1.8, -3, 5.9, 11, 12, -1.5, 6.7, 8): k = 1
With MSFlexGrid1
.Rows = n + 1: .Cols = m + 1: .ColWidth(0) = 400
For i = 1 To n: For j = 1 To m: A(i, j) = x(k): k = k + 1
If j = 1 Then .ColWidth(j) = 700 Else .ColWidth(j) = 600
.TextMatrix(i, 0) = i: .TextMatrix(0, j) = j: .TextMatrix(i, j) = A(i, j)
Next j: Next: .Row = 1: .Col = 1: .RowSel = i - 1: .ColSel = j - 1: .FillStyle = flexFillRepeat
.CellAlignment = flexAlignCenterCenter
End With
For i = 1 To n
p = 1
For j = 1 To m
If i > j Then p = p * A(i, j)
Next j: List1.List(i - 1) = p
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

Shersh · 15.03.2016, 11:21

Заблудились?

@mrkrupik · 15.03.2016, 11:28 **[ТС]**

Так не выходит все равно.

Shersh · 15.03.2016, 12:23

Сообщение от mrkrupik

что бы вместо MsgBox ответ был в List2, как это сделать?

Visual Basic
1
2
3
Next i
'MSGBOX P
LIST2.ADDITEM P

Какой смысл выводить ОДНО значение в LIST2 - можете объяснить?

@mrkrupik · 15.03.2016, 12:38 **[ТС]**

Смотрите, если выводить P, то результат получается неправильным, оно просто выводит произведение последней строчки. А мне нужно, что бы посчитало произведение всех элементов, которые лежат ниже гл. диагонали. Результат будет одним числом.

UPD: Не важно, пусть даже не в list2, а в обычный text1, главное что бы посчитало произведение.

Shersh · 15.03.2016, 13:13

Сообщение от mrkrupik

спасибо

- это чьи слова?
Зачем вы вынесли опять свой старый вариант?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@mrkrupik 0 / 0 / 1 Регистрация: 27.06.2015 Сообщений: 16
	13.03.2016, 17:42 [ТС]
	Неплохо, спасибо. А что бы вместо MsgBox ответ был в List2, как это сделать? 0

Shersh Заблокирован
	15.03.2016, 11:21
	Заблудились? 0

@mrkrupik 0 / 0 / 1 Регистрация: 27.06.2015 Сообщений: 16
	15.03.2016, 11:28 [ТС]
	Так не выходит все равно. 0

@mrkrupik 0 / 0 / 1 Регистрация: 27.06.2015 Сообщений: 16
	15.03.2016, 12:38 [ТС]
	Смотрите, если выводить P, то результат получается неправильным, оно просто выводит произведение последней строчки. А мне нужно, что бы посчитало произведение всех элементов, которые лежат ниже гл. диагонали. Результат будет одним числом. UPD: Не важно, пусть даже не в list2, а в обычный text1, главное что бы посчитало произведение. 0

Найти произведение элементов, которые лежат ниже главной диагонали матрицы

Решение