Произведение элементов каждой строки в матрице (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.

Объяснение кода листинга программы

  1. В начале кода подключаются необходимые библиотеки и объявляются переменные.
  2. Затем происходит инициализация матрицы a с помощью цикла for.
  3. Выводится запрос на ввод значения X.
  4. Далее происходит итерация по строкам матрицы a с помощью второго цикла for.
  5. Внутри первой итерации происходит итерация по столбцам матрицы a с помощью первого цикла for.
  6. Для каждой ячейки матрицы a вычисляется случайное число от -4 до 7 и записывается в эту ячейку.
  7. После завершения первой итерации по строкам выводится значение X.
  8. Затем происходит итерация по строкам матрицы a с помощью второго цикла for.
  9. Внутри второй итерации происходит вычисление произведения всех элементов текущей строки матрицы a и записывается в переменную pr.
  10. После завершения второй итерации по строкам выводится значение произведения для данной строки.
  11. Код повторяется для каждой строки матрицы a.
  12. В конце кода происходит завершение программы.

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы