Вычислить сумму ряда с заданной точностью - Pascal ABC (14780)

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

При заданном х=0.75 вычислить сумму N членов ряда с точностью e<=0.0001 Сравнить результаты со значением стандартной функции Паскаля. где

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

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

uses crt;
const x=0.75;
var n,i:integer;
    e,t,s:real;
begin
repeat
write('Введите точность 0<e<=0.0001 e=');
readln(e);
until(e>0)and(e<=0.0001);
repeat
write('Введите количество слагаемых n>0 n=');
readln(n);
until n>0;
t:=x;
s:=t;
for i:=1 to n do
 begin
  t:=t*x*x*(2*i-1)/(2*i);
  if abs(t)/(2*i+1)>e then s:=s+t/(2*i+1);
 end;
writeln('S=',s:0:5);
write('arcsin(x)=',arctan(x/sqrt(1-x*x)):0:5);
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Запрашивает у пользователя ввод точности (переменная e) с точностью до 4 знаков после запятой.
Запрашивает у пользователя ввод количества слагаемых (переменная n) больше нуля.
Инициализирует две переменные t и s начальными значениями t=x и s=t.
В цикле for перебирает все слагаемые от 1 до n.
Для каждого слагаемого вычисляет значение t как произведение x на себя дважды, умноженное на (2i-1)/(2i), где i - номер текущего слагаемого.
Если значение t превышает точность e, то значение s увеличивается на t/(2*i+1).
Выводит значение s.
Выводит значение arcsin(x), где x - текущее значение t.
Конец программы.