Вывод и нахождение суммы - PascalABC.NET

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

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

Создать процедуру для вывода и нахождения суммы первых N членов арифметической прогрессии, заданной формулой an=5n-3.

Решение задачи: «Вывод и нахождение суммы»

textual
Листинг программы
begin
  writeln('Сумма прогрессии = ', Range(1, ReadlnInteger('N =')).Select(v -> 5 * v - 3).Sum);
end.

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

В данном коде происходит следующее:

  1. Вывод сообщения «Сумма прогрессии =» с помощью функции writeln.
  2. Получение от пользователя значения переменной N с помощью функции ReadlnInteger.
  3. Вычисление суммы элементов прогрессии с шагом 5, начиная с 1 и до N включительно, с помощью функции Select и функции Sum.
  4. Вывод результата вычисления суммы с помощью функции writeln. Список переменных и их значений:
  5. N = 5
  6. Range(1, N) = {1, 2, 3, 4, 5}
  7. (5 * v — 3) = 2
  8. Sum(2) = 10 Получаем следующий результат: Сумма прогрессии = 10 Примечание: Данная задача не является корректной постановкой задачи на вычисление суммы прогрессии, так как в данном случае прогрессия начинается с 1 и заканчивается N, а не с 1 и до N.

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

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