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

[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,a1,e,q,s,x:real;
n:integer;
begin
write('Введите e: ');readln(e);
write('Введите x: ');readln(x);
n:=0;
q:=1;
s:=1;
while abs(q)>e do
begin
n:=n+1;
q:=q*(-x*x)/((2*n-1)*(2*n));
s:=s+q;
writeln(q:10:5,s:10:5);
end;
writeln('Сумма=',s:10 :2,'Cos(x)=',cos(x):10 :2);
end.

И еще для будущего почему (-x*x)/((2*n-1)*(2*n)) в знаменателе

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