Произведение элементов каждой строки в матрице (nxm). - Pascal
Формулировка задачи:
Очень нужна помощь в написании программы, что ниже. Заранее ОГРОМНОЕ спасибо!
- Задача 3. Дана матрица (nxm). Найти произведение элементов каждой строки.
Help!
Решение задачи: «Произведение элементов каждой строки в матрице (nxm).»
textual
Листинг программы
uses crt; const str=4;{êîëè÷åñòâî ñòðîê} sto=4;{êîëè÷åñòâî ñòîëáöîâ} var a:array [1..str,1..sto] of integer; i,j:integer; pr:real; begin clrscr; {Г§Г*ïîëГ*ГїГҐГ¬ ГЁ âûûâîäèì Г¬Г*Г±Г±ГЁГў} writeln('ÈñõîäГ*Г*Гї Г¬Г*òðèöГ* X:'); for i:=1 to str do begin for j:=1 to sto do begin a[i,j]:=random(8)-4; write(a[i,j]:2,' ') end; writeln end; {Г*Г*õîäèì ïðîèçâåäåГ*ГЁГҐ ýëåìåГ*òîâ Г·ГҐГІГ*ûõ ñòðîê} for i:=1 to str do begin pr:=1; begin for j:=1 to sto do pr:=pr*a[i,j]; writeln('ïðîèçâåäåГ*ГЁГҐ ',i,' ñòðîêè: ',pr) end; end; end.
Объяснение кода листинга программы
- В начале кода подключаются необходимые библиотеки и объявляются переменные.
- Затем происходит инициализация матрицы a с помощью цикла for.
- Выводится запрос на ввод значения X.
- Далее происходит итерация по строкам матрицы a с помощью второго цикла for.
- Внутри первой итерации происходит итерация по столбцам матрицы a с помощью первого цикла for.
- Для каждой ячейки матрицы a вычисляется случайное число от -4 до 7 и записывается в эту ячейку.
- После завершения первой итерации по строкам выводится значение X.
- Затем происходит итерация по строкам матрицы a с помощью второго цикла for.
- Внутри второй итерации происходит вычисление произведения всех элементов текущей строки матрицы a и записывается в переменную pr.
- После завершения второй итерации по строкам выводится значение произведения для данной строки.
- Код повторяется для каждой строки матрицы a.
- В конце кода происходит завершение программы.