Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали - Turbo Pascal

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

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

1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

Решение задачи: «Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали»

textual
Листинг программы
  1. type
  2.   matrix = array [1..100, 1..100] of integer;
  3.  
  4. var
  5.   n, m, i, j: integer;
  6.   sum: integer;
  7.   c: matrix;
  8.  
  9. function sumdiag(c: matrix; n, m: integer): integer;
  10. var
  11.   s, i, j: integer;
  12. begin
  13.   s := 0;
  14.   for i := 1 to n do
  15.     for j := 1 to m do
  16.       if j < i then
  17.         s := s + c[i, j];
  18.   sumdiag := s;
  19. end;
  20.  
  21. begin
  22.   n := 3;
  23.   m := 3;
  24.   for i := 1 to n do
  25.   begin
  26.     for j := 1 to m do
  27.     begin
  28.       c[i, j] := random(n * m);
  29.       write(c[i, j]:6);
  30.     end;
  31.     writeln;
  32.   end;  
  33.   writeln(sumdiag(c, n, m));
  34. end.

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

  1. Создаётся тип данных matrix, представляющий массив целых чисел размером от 1 до 100 в каждой из двух координат.
  2. Создаются три переменные: n, m и i, инициализированные значениями 3, 3 и 1 соответственно.
  3. Создаётся переменная sum и инициализируется значением 0.
  4. Создаётся переменная c, которая является массивом целых чисел размером n на m.
  5. Выполняется цикл по i от 1 до n.
  6. Внутри цикла выполняется цикл по j от 1 до m.
  7. Внутри цикла проверяется условие j < i. Если оно истинно, то к переменной s прибавляется значение c[i, j].
  8. Значение s присваивается переменной sum.
  9. После окончания внутреннего цикла по j выполняется вывод значения sum.
  10. Задаются значения n и m, равные 3.
  11. Выполняется цикл по i от 1 до n.
  12. Внутри цикла выполняется цикл по j от 1 до m.
  13. Внутри цикла выводится значение c[i, j] (случайное число от 0 до n*m) с помощью функции write.
  14. После окончания внутреннего цикла по j выполняется вывод строки-разделителя.
  15. Выводится значение функции sumdiag, которое является суммой элементов, находящихся ниже главной диагонали массива c.
  16. Выводится итоговый результат.

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


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

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

6   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы