Вычислить сумму ряда - Free Pascal (244466)
Формулировка задачи:
Задача такова:
Дано натуральное число n. Вычислить сумму вида: 1-1/2+1/3-1/4+1,5...
Как решить такую задачу с помощью циклов?
Решение задачи: «Вычислить сумму ряда»
textual
Листинг программы
sum:=0; z:=-1; for i:=1 to n do begin z:=-z; sum:=sum+z/i; end;
Объяснение кода листинга программы
- Объявляется переменная sum и инициализируется значением 0.
- Объявляется переменная z и инициализируется значением -1.
- Задается диапазон для цикла for от 1 до n.
- В теле цикла for выполняется следующая последовательность действий:
- Значение переменной z меняется на противоположное (отрицательное на положительное и наоборот).
- Значение переменной sum увеличивается на значение переменной z, деленное на текущее значение i.
- После выполнения всех итераций цикла for, значение переменной sum будет содержать сумму ряда.