Найти сумму элементов главной и побочной диагоналей матрицы - 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.
Объяснение кода листинга программы
- Создается подключение к библиотеке crt.
- Задается константа Max, которая представляет собой максимальное значение для переменной типа integer.
- Создается переменная Matrix, которая представляет собой матрицу размером от 1 до Max на 1 до Max.
- Создаются три переменные i, j, Sum1 и Sum2, которые будут использоваться для итерации по матрице и суммирования элементов.
- Выполняется цикл, который запрашивает у пользователя размерность квадратной матрицы.
- Для каждого значения m в диапазоне от 1 до Max выполняется внутренний цикл, который заполняет матрицу случайными значениями.
- После заполнения матрицы выводятся ее элементы.
- Задаются две переменные Sum1 и Sum2, которые будут использоваться для суммирования элементов главной и побочной диагоналей соответственно.
- Для каждого значения i в диапазоне от 1 до m выполняется внутренний цикл, который суммирует элементы главной и побочной диагоналей.
- По завершении суммирования выводятся суммы элементов главной и побочной диагоналей.
- Программа завершается после ввода с клавиатуры.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д