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

[AlexKis]

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

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

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

[volvo]

Естественно... Что ты делаешь вот тут:

q:=-x*x*(2*n)/(2*(n+1));

? Этого не надо делать, надо делать так:

n:=0;
s:=1;
q := 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;

, а для сравнения с Cos не приводи аргумент к радианам, ты должен задавать значение X не в градусах, а уже в радианах...

(пользуйся тегами CODE)