Вычислить сумму и найти число слагаемых, которые вошли в сумму - Free Pascal (156)

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

ычислить сумму и найти число слагаемых, которые вошли в сумму.Процесс вычисления требуется закончить, когда очередное слагаемое по модулю окажется меньше эпселент(это слагаемое при вычислении суммы уже не учитывать)

Решение задачи: «Вычислить сумму и найти число слагаемых, которые вошли в сумму»

Листинг программы

var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
e:=0.00001;
n:=0;
t:=1;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n-1)/(2*n);
  s:=s+t;
 end;
write('S=',s:0:5);
readln;
end.

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

Объявлены переменные: x, e, t, s (тип real), n (тип integer).
Выводится сообщение x= и считывается значение переменной x.
Переменная e инициализируется значением 0.00001.
Переменная n инициализируется значением 0.
Переменная t инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока абсолютное значение переменной t больше e.
Внутри цикла значение переменной n увеличивается на 1.
Значение переменной t обновляется в соответствии с формулой -txx/(2n-1)/(2n).
Значение переменной s увеличивается на значение переменной t.
После окончания цикла выводится сообщение S= и значение переменной s с точностью до 5 знаков после запятой.
Программа ожидает нажатия клавиши для завершения работы.