Программирование с использованием подпрограмм и модулей - Pascal ABC

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

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

Создать программу для расчета суммы из х первых натуральных чисел . Результат имеет исчисляться в подпрограмме с использованием цикла с предусловием.

Решение задачи: «Программирование с использованием подпрограмм и модулей»

textual
Листинг программы
program pr;
var
  x: integer;
  sum: longint;
function summ(n: integer): longint;       // подпрограмма подсчёта 
var
  i: integer;
  s: longint;
begin
  i := 1;
  s := 0;
  while i <= n do
  begin
    s := s + i;
    i := i + 1;
  end;
  summ := s;
end;
begin
  writeln('Введите число x');
  readln(x);
  sum := summ(x);
  writeln('Сумма равна: ', sum);
end.

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

  1. В программе объявлены две переменные: x и sum.
  2. Задается задача подсчета суммы чисел от 1 до n с помощью подпрограммы summ.
  3. Определяется функция summ, которая принимает один аргумент n и возвращает сумму чисел от 1 до n.
  4. В функции summ объявляются две переменные: i и s.
  5. Задается начальное значение i = 1 и s = 0.
  6. Запускается цикл while i <= n, где n - аргумент функции summ.
  7. Внутри цикла значение переменной i увеличивается на 1, а значение переменной s увеличивается на i и сохраняется в переменной s.
  8. После завершения цикла значение переменной s сохраняется в переменной summ и возвращается из функции.
  9. В основной части программы запрашивается число x, для которого нужно вычислить сумму.
  10. Число x записывается в переменную x.
  11. Вызывается подпрограмма summ с аргументом x для вычисления суммы.
  12. Результат вычисления суммы сохраняется в переменной sum.
  13. Выводится сообщение с результатом вычисления суммы.

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

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