Вычислить значение суммы членов бесконечного ряда с заданной точностью - Turbo Pascal (29190)

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

Вычислить значение суммы членов бесконечного ряда с заданной точностью.Определить число членов ряда, вошедших в сумму.

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

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

uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('Введите |x|<=1 x=');
readln(x);
until abs(x)<=1;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=x*x*x/3;
s:=t;
while abs(t/(4*n*n-1))>e do
 begin
  n:=n+1;
  t:=-t*x*x;
  s:=s+t/(4*n*n-1);
 end;
writeln('S=',s:0:5);
write('x^3/3=',x*x*x/3:0:5);
readln
end.

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

В первой строке кода используется библиотека crt, которая предоставляет функции для работы с консолью.
Переменные x, e и s объявлены как real, что позволяет работать с числами с плавающей точкой.
Переменная n объявлена как integer, что позволяет работать с целыми числами.
Строка repeat...until используется для цикла, который продолжается до тех пор, пока условие выполняется.
В строке readln(x) считывается значение переменной x с клавиатуры.
В строке readln(e) считывается значение переменной e с клавиатуры.
В строке n:=1; задается начальное значение переменной n.
В строке t:=xxx/3 вычисляется значение выражения x^3/3.
В строке s:=t; присваивается значение переменной s, равное значению переменной t.
В строке while abs(t/(4nn-1))>e do используется цикл while, который продолжается до тех пор, пока условие выполняется.
Внутри цикла вычисляется новое значение переменной n как n+1.
Внутри цикла вычисляется новое значение переменной t как -txx.
Внутри цикла вычисляется новое значение переменной s как s+t/(4nn-1).
В строке writeln('S=',s:0:5) выводится значение переменной s с точностью до 5 знаков после запятой.
В строке writeln('x^3/3=',xxx/3:0:5) выводится значение выражения x^3/3 с точностью до 5 знаков после запятой.
В строке readln читается новое значение с клавиатуры.
Конец программы.