Вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур - Pascal ABC

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

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

как вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур?

Решение задачи: «Вычислить сумму элементов в каждой строке матрицы a[n, n], с использованием функций и процедур»

textual
Листинг программы
type
  Matrix = array [1..100, 1..100] of integer;
 
var
  a: matrix;
  n, i, j: byte;
  sum: integer;
 
procedure su(var x: matrix);
var
  q, w, sum: integer;
begin
  for q := 1 to n do
  begin
    for w := 1 to n do
      if x[q, w] >= 0 then
        sum := sum + a[q, w];
    writeln('sum of ', q, '=', sum);
    sum := 0;
  end;
end;
 
begin
  Writeln('Введите размерность матрицы:');
  Readln(n);
  for i := 1 to n do {ввод матрицы a}
    for j := 1 to n do
      a[i, j] := random(20) - 10;
  for i := 1 to n do {вывод матрицы}
  begin
    for j := 1 to n do
      Write(a[i, j]:3);
    Writeln;
  end;
  su(a);
end.

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

  1. Создаётся тип данных Matrix, который представляет собой матрицу размером от 1 до 100 в каждой строке и каждом столбце.
  2. Создаётся переменная a типа Matrix, которая будет использоваться для хранения матрицы.
  3. Создаются три переменные n, i и j типа byte, которые будут использоваться для итерации по матрице.
  4. Создается переменная sum типа integer, которая будет использоваться для хранения суммы элементов матрицы.
  5. Вызывается процедура su, которая принимает матрицу x в качестве параметра и выполняет следующие действия:
    • Инициализирует две переменные q и w типа integer для итерации по матрице.
    • Использует два вложенных цикла for для суммирования элементов матрицы x с положительными значениями.
    • Выводит сумму элементов матрицы x для каждого столбца.
  6. Выполняется ввод размера матрицы с помощью функции Readln.
  7. Для каждого столбца матрицы a вызывается цикл for, который суммирует элементы матрицы a с помощью процедуры su.
  8. Выводится матрица a с помощью функции Write.
  9. Вызывается функция random для генерации случайного числа в диапазоне от -10 до 10.
  10. Программа завершается.

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

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