Цикл: найти сумму заданного ряда - Turbo Pascal
Формулировка задачи:
Вычислить сумму
Условный оператор и операцию возведения в степень не использовать.
Помогите найти сумму,пожалуйста
Решение задачи: «Цикл: найти сумму заданного ряда»
textual
Листинг программы
var
n,t:integer;
s:real;
begin
write('n=');readln(n);
t:=1;
for n:=1 to n do begin;
s:=s+t*1/n;
t:=-t;
end;
writeln('S=',s:0:4);
end.
Объяснение кода листинга программы
В данном коде на Turbo Pascal происходит следующее:
- Объявляются три переменные: n, t и s. Переменная n является целым числом, переменная t также является целым числом, а переменная s является вещественным числом.
- Выводится сообщение «n=», после чего считывается значение переменной n с помощью функции readln.
- Переменная t инициализируется значением 1.
- Запускается цикл for, который выполняется от 1 до n (т.е. от 1 до того значения, которое было считано на предыдущем шаге).
- Внутри цикла переменная s инициализируется суммой произведения переменной t на 1/n и текущего значения переменной s.
- Затем переменная t сбрасывается в отрицательное значение.
- По завершении цикла выводится значение переменной s с точностью до 4 знаков после запятой с помощью функции writeln.