Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали - Turbo Pascal
Формулировка задачи:
1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.
Решение задачи: «Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали»
textual
Листинг программы
- type
- matrix = array [1..100, 1..100] of integer;
- var
- n, m, i, j: integer;
- sum: integer;
- c: matrix;
- function sumdiag(c: matrix; n, m: integer): integer;
- var
- s, i, j: integer;
- begin
- s := 0;
- for i := 1 to n do
- for j := 1 to m do
- if j < i then
- s := s + c[i, j];
- sumdiag := s;
- end;
- begin
- n := 3;
- m := 3;
- for i := 1 to n do
- begin
- for j := 1 to m do
- begin
- c[i, j] := random(n * m);
- write(c[i, j]:6);
- end;
- writeln;
- end;
- writeln(sumdiag(c, n, m));
- end.
Объяснение кода листинга программы
- Создаётся тип данных
matrix
, представляющий массив целых чисел размером от 1 до 100 в каждой из двух координат. - Создаются три переменные: n, m и i, инициализированные значениями 3, 3 и 1 соответственно.
- Создаётся переменная sum и инициализируется значением 0.
- Создаётся переменная c, которая является массивом целых чисел размером n на m.
- Выполняется цикл по i от 1 до n.
- Внутри цикла выполняется цикл по j от 1 до m.
- Внутри цикла проверяется условие j < i. Если оно истинно, то к переменной s прибавляется значение c[i, j].
- Значение s присваивается переменной sum.
- После окончания внутреннего цикла по j выполняется вывод значения sum.
- Задаются значения n и m, равные 3.
- Выполняется цикл по i от 1 до n.
- Внутри цикла выполняется цикл по j от 1 до m.
- Внутри цикла выводится значение c[i, j] (случайное число от 0 до n*m) с помощью функции write.
- После окончания внутреннего цикла по j выполняется вывод строки-разделителя.
- Выводится значение функции sumdiag, которое является суммой элементов, находящихся ниже главной диагонали массива c.
- Выводится итоговый результат.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д