Решение матрицы - Pascal (80210)

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

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

Помогите сделать программу для вычисления и запомнить суммы и число положительных элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов, размеры матрицы A(20,15) элементы матрицы

Решение задачи: «Решение матрицы»

textual
Листинг программы
const m=20;
      n=15;
var a:array[1..m,1..n] of real;
    i,j,k:byte;
    s:real;
begin
writeln('Матрица');
writeln('Сумма':5*n+8,'Кол.пол.':10);
for i:=1 to m do
 begin
  s:=0;
  k:=0;
  for j:=1 to n do
   begin
    a[i,j]:=(1+cos(j))*ln(1+0.5*cos(i));
    s:=s+a[i,j];
    if a[i,j]>0 then k:=k+1;
    write(a[i,j]:5:2);
   end;
  writeln(s:8:2,k:8);
 end;
end.

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

  1. Объявляется константа m со значением 20 и n со значением 15.
  2. Объявляется двумерный массив a размером m на n для хранения чисел с плавающей точкой.
  3. Объявляются переменные i, j, k как байты, и переменная s для хранения чисел с плавающей точкой.
  4. Начинается блок кода.
  5. Выводится слово Матрица.
  6. Выводится форматированный заголовок для вывода суммы и количества положительных чисел в строке.
  7. Запускается цикл счетчика i от 1 до m.
  8. Внутри этого цикла переменные s и k устанавливаются в 0.
  9. Запускается вложенный цикл счетчика j от 1 до n.
  10. Внутри этого цикла присваивается значение элементу массива a по индексам i и j с использованием формулы, в которой используются тригонометрические и логарифмические операции.
  11. Значение в a[i, j] прибавляется к s.
  12. Если a[i, j] больше 0, увеличивается значение k на 1.
  13. Выводится значение a[i, j] с форматированием.
  14. Заканчивается внутренний цикл.
  15. Выводится значение s и k с форматированием после всех значений массива a в строке.
  16. Заканчивается внешний цикл.
  17. Конец программы.

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

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