Паскаль

[masterlomaster]

вычилить cosX=1-X*x/2! + x*x*x*x/4! - x*x*x*x*x*x/6! +...+ Rn! |Rn|>E

написать программу на Паскале.
не могу додуматься, как бы это покомпактней свернуть.
Спасибо!

[Stilet]

Как-то так:

 var e,x,i,f:integer;d:double;
begin
 f:=2; x:=2; e:=-1;
 d:=1-x*x/f;
 for i:=3 to 5 do begin
   x:=x*x;
   f:=f*i;
   e:=-1;
   d:=d+e*x/f;
 end;
 write(d:5:2);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Правда не проверял на точность...