Рекурентная формуал

[alonix]

Помогите найти рекурентную форумулу к приведенной ниже
заранее благодарен
S(x)=1+cos(pi/4)*x/1!+...cos(n*pi/4)*x^n/n!

[alonix]

аааапппппп

[whatever]

function RecFunc(x:real; n:integer):real;
begin
  if n=0 then 
    result:=1
  else
    result:=cos(n*pi/4)*exp(n*ln(x))/factorial(N)+RecFunc(x,n-1);
end;

Функция factorial пишется отдельно.