Вычислить y=cos(x) с точностью eps>0

[manchester_alan]

Не используя стандартных функций (за исключением abs) вычислить с точностью eps>0

y=cos(x)=1-(x^2/2!)+(x^4/4!)-...+(((-1)^n)*x^2n)/(2n)!+....

Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps

Помогите разобраться, пожалуйста...

  var e,x,s,t:Real;
  n:Integer;
begin
  write('x=');
  Readln(x);

  repeat
  write('e>0 , e=');
  readln(e);
  until e>0;

  if e>=1 then s:=1
  else
   begin
    s:=1;
    t:=1;
    n:=0;
    while Abs(t)>e do
      begin
        n:=n+1;
        t:=-t*x*x/((2*n-1)*(2*n));
        s:=s+t;
      end;
   end;

   writeln('Sum = ',s:0:4);
   write('y = Cos(x) = ',Cos(x):0:4);

   Readln;
end.

А то вот примерно программа есть, но не могу разобраться, правильно считает или нет... И как вообще работает..?

[Stilet]

Могу я предложить такой пример?: http://www.programmersforum.ru/showp...1&postcount=35

[manchester_alan]

Сообщение от Stilet

Могу я предложить такой пример?: http://www.programmersforum.ru/showp...1&postcount=35

ну если это правильно, то спасибо...)
единственное только, там в ряде идет x, потом x^2, потом x^3 и т. д...

а как сделать чтобы как у меня было x^2,x^4,x^6 и т. д...

[Аватар]

Алгоритм у тебя c использованием рекуррентности членов ряда и на первый взгляд правильный. А если еще результат подсчета ряда с косинусом примерно совпал для e<=0.001, то и программа написана правильно

[Stilet]

а как сделать чтобы как у меня было x^2,x^4,x^6 и т. д...

Нет у студней фантазии и смекалки... Э-хэ-хэ-х... Где же СССР наш?
Можно же там, где вычисляетс игрек поставить if с проверкой на четность? Не?