Найти рекурентное соотношение, задача по паскалю Опции

[AlexKis]

Снова такая задача

Даны действительные числа е>0 и Х.
Вычислить Е (n от 1 до бескон) Un с заданной точностью е. Для обеспечения требуемой точности включить в сумму только те слагаемые, для которых |Un|<e. Для организации вычисления Un получить рекурентное отношение, связывающее Un+1 и Un.

(-1)ⁿ⁺¹+X^2n-1/(2n-1)!

Добавлено через 1 мин.

program z4_v2;
var
e,q,s,x:real;
n:integer;
begin
write('Введите e: ');readln(e);
write('Введите x: ');readln(x);
n:=0;
q:=1;
s:=0;
while abs(q)>e do
begin
n:=n+1;
q:=q*((-1)+(x*x)/((2*n-1)*(2*n-2)-1)));
s:=s+q;
writeln(q:10:5,s:10:5);
end;
writeln('Сумма=',s:10:5,'    Sin(x)=',sin(x): 10 :5);
end.

Добавлено через 7 мин.
(-1)+(x*x/((2*(n-1)-1)*(2*n-1))?????????????????????????