Вывод и нахождение суммы - PascalABC.NET
Формулировка задачи:
Создать процедуру для вывода и нахождения суммы первых N членов арифметической прогрессии, заданной формулой an=5n-3.
Решение задачи: «Вывод и нахождение суммы»
textual
Листинг программы
begin writeln('Сумма прогрессии = ', Range(1, ReadlnInteger('N =')).Select(v -> 5 * v - 3).Sum); end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Вывод сообщения «Сумма прогрессии =» с помощью функции writeln.
- Получение от пользователя значения переменной N с помощью функции ReadlnInteger.
- Вычисление суммы элементов прогрессии с шагом 5, начиная с 1 и до N включительно, с помощью функции Select и функции Sum.
- Вывод результата вычисления суммы с помощью функции writeln. Список переменных и их значений:
- N = 5
- Range(1, N) = {1, 2, 3, 4, 5}
- (5 * v — 3) = 2
- Sum(2) = 10 Получаем следующий результат: Сумма прогрессии = 10 Примечание: Данная задача не является корректной постановкой задачи на вычисление суммы прогрессии, так как в данном случае прогрессия начинается с 1 и заканчивается N, а не с 1 и до N.