Вычислить сумму ряда - Turbo Pascal (248086)

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

Дано действительное число Х не равное 0. Помогите вычислить значение выражения с точностью 10^-3.

Решение задачи: «Вычислить сумму ряда»

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

var x,e,t,s:real;
    k:integer;
begin
repeat
write('Введите |x|<=1 x<>0 x=');
readln(x);
until (abs(x)<=1)and(x<>0);
e:=0.001;
k:=1;
t:=-x*x;
s:=t;
while abs(t)/k/(k+1)/(k+2)>e do
 begin
  k:=k+1;
  t:=-t*x*x;
  s:=s+t/k/(k+1)/(k+2);
 end;
write('s=',s:0:4)
end.

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

В этом коде на языке Turbo Pascal вычисляется сумма ряда. Вот список действий, которые выполняются в коде:

Переменным x, e, t и s присваиваются начальные значения.
Пользователю предлагается ввести значение переменной x. Цикл repeat выполняется до тех пор, пока пользователь не введет значение, удовлетворяющее условиям: |x| <= 1 и x ≠ 0.
Переменной e присваивается значение 0.001.
Переменной k присваивается значение 1.
Переменной t присваивается значение -x*x.
Переменной s присваивается значение t.
Запускается цикл while, который выполняется до тех пор, пока значение выражения abs(t)/k/(k+1)/(k+2) не станет меньше значения переменной e.
Внутри цикла while выполняются следующие действия:
- Переменной k присваивается значение k + 1.
- Переменной t присваивается значение -txx.
- Переменной s присваивается значение s + t/k/(k+1)/(k+2).
После выхода из цикла while выводится значение переменной s с точностью до 4 знаков после запятой.