Найти сумму элементов главной и побочной диагоналей матрицы - Pascal

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

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

1. Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел. 2. Дана квадратная матрица порядка M. Найти сумму элементов ее главной и побочной диагоналей.

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

textual
Листинг программы
uses crt;
const Max=100;
var Matrix:array[1..Max,1..Max] of integer;
    i,j,Sum1,Sum2,m:integer;
begin
  clrscr;
  randomize;
  repeat
    writeln('Введите размерность квадратной матрицы ');
    readln(m);
  until m in [1..Max];
  for i:=1 to m do
    for j:=1 to m do
      Matrix[i,j]:=random(25);//при необходимости замените на ручной ввод
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(Matrix[i,j]:4);
        writeln;
    end;
  Sum1:=0; Sum2:=0;
  for i:=1 to m do
    begin
      Sum1:=Sum1+Matrix[i,i];
      Sum2:=Sum2+Matrix[m-i+1,i];
    end;
  writeln('Сумма элементов главной диагонали:',Sum1);
  writeln('Сумма элементов побочной диагонали:',Sum2);
  readln;
end.

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

  1. Создается подключение к библиотеке crt.
  2. Задается константа Max, которая представляет собой максимальное значение для переменной типа integer.
  3. Создается переменная Matrix, которая представляет собой матрицу размером от 1 до Max на 1 до Max.
  4. Создаются три переменные i, j, Sum1 и Sum2, которые будут использоваться для итерации по матрице и суммирования элементов.
  5. Выполняется цикл, который запрашивает у пользователя размерность квадратной матрицы.
  6. Для каждого значения m в диапазоне от 1 до Max выполняется внутренний цикл, который заполняет матрицу случайными значениями.
  7. После заполнения матрицы выводятся ее элементы.
  8. Задаются две переменные Sum1 и Sum2, которые будут использоваться для суммирования элементов главной и побочной диагоналей соответственно.
  9. Для каждого значения i в диапазоне от 1 до m выполняется внутренний цикл, который суммирует элементы главной и побочной диагоналей.
  10. По завершении суммирования выводятся суммы элементов главной и побочной диагоналей.
  11. Программа завершается после ввода с клавиатуры.

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


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

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

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