Найти произведение элементов в каждой строке матрицы - Turbo Pascal (29178)

Узнай цену своей работы

Формулировка задачи:

Найти произведение элементов в каждой строке массива размером MxN, элементы которого вводятся с клавиатуры.

Решение задачи: «Найти произведение элементов в каждой строке матрицы»

textual
Листинг программы
  1. program qq;
  2. var m, n, i, j: integer;
  3.     a: array [1..100, 1..100] of real;
  4.     b: array [1..100] of real;
  5. begin
  6.   write ('Введите количество строк матрицы m = ');
  7.   readln (m);
  8.   write ('Введите количество столбцов матрицы n = ');
  9.   readln (n);
  10.   writeln ('Введите элементы массива:');
  11.  
  12.   for i:= 1 to m do
  13.     for j:= 1 to n do
  14.       begin
  15.         write ('a[', i, ',', j, '] = ');
  16.         readln(a[i,j]);
  17.       end;
  18.  
  19.   for i:=1 to m do
  20.     begin
  21.       for j:=1 to n do
  22.         write (a[i,j], '   ');
  23.       writeln;
  24.     end;
  25.  
  26.   for i:=1 to m do
  27.     b[i]:=1;
  28.    
  29.   for i:=1 to m do
  30.     begin
  31.       for j:=1 to n do
  32.         b[i]:=b[i]*a[i,j];
  33.       writeln ('Произведение элементов в ', i, ' строке = ', b[i]);
  34.     end;  
  35. end.

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

  1. Программа начинается с объявления переменных m, n и i, которые будут использоваться для работы с матрицей. Также объявляется переменная a, которая будет представлять собой матрицу размером 100x100, и переменная b, которая будет представлять собой матрицу размером 100x1.
  2. Затем программа запрашивает у пользователя количество строк и столбцов матрицы и сохраняет эти значения в переменных m и n соответственно.
  3. После этого программа запрашивает у пользователя элементы массива a и сохраняет их в соответствующем массиве.
  4. Далее программа выводит произведение элементов каждой строки матрицы a.
  5. Затем программа выводит произведение элементов каждой строки матрицы b.
  6. Наконец, программа завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы