рекуррентные соотношения

[dimass68]

вычислить знач. ф. с точностью 0.0001 при конкретном знач. х и а
после разложения ряд получился
-(2n+1)/(2n+3)x*x
вот типо поэтому шаблону делал
_____________

program zohan;
uses crt;

function cten(a:real;b:integer): real;
var
	i:integer;
        p:real;
Begin
     if b=0 then
	    cten:=1
        else if b=1 then
	     cten:=a
        else begin
	     p:=a;
for i:=1 to b-1 do p:=p*a;
cten:=p
end;
end;

function fact(x:real):real;
Begin
  if x=0 then
    fact:=1
  else
    fact:=fact(x-1)*x;
End;

const
  eps =0.0001;
var
  n:integer;
  sum,prev,cur,x:real;
BEGIN
clrscr;
  write('‚ўҐ¤ЁвҐ X:');
  readln(x);
  prev:=1;
  sum:=0;
  n:=0;
  while abs(prev-sum)>eps do begin
    prev:=sum;
    cur:=cten(x,n)/fact(n);
    sum:=cur+sum;
    inc(n);
  end;
  writeln ('ђҐ§г«мв*в:',sum:8:4);
  readln;
END.

_________
прога работает не правильно,проверка не совпадает,подскажите как делать



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.