Найти рекурентное соотношение, Информатика Опции

[AlexKis]

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

(-1)ⁿ*X²ⁿ/(2n)!

Сообщение отредактировано: volvo - 6.06.2009 15:10

[AlexKis]

program z4_v3;
var
a,e,q,s,x:real;
n:integer;
begin
write('Введите e: ');readln(e);
write('Введите x: ');readln(x);
n:=2;
{a:=1;}
s:=-x*x/2;
while abs(a)>e do
begin
q:=-x*x*(2*n)/(2*(n+1));
a:=s*q;
s:=s+a;
n:=n+1;
writeln(q,'  ',a,'    ',s);
a:=0;
end;
writeln('Сумма=',s,'Cos(x)=',cos(x*pi/180));
end.

Чтот то не так