Помогите посчитать ряд..горю

[xlr8]

program Ind_Ryad;
Uses Crt;
Var  x,y:real;

Function my_func(x:real):real;

Var i:integer;
    z,s,p,a,b,k,t:real;

begin
     i:=1;
     a:=1;
     b:=1;
     k:=-1;
     p:=1;
     s:=1;

            while abs(a/b)>0.01 do

begin


    a:=a*abs(k);

    b:=b*(2*i);
  s:=s+((a/b)*p*x);
    p:=-p;
    x:=x*x;
    k:=k+2;
    i:=i+1;

end;
my_func:=s;
writeln('s=',s);
end;
Begin
clrscr;

x:=-1;
      while x<=1 do

      begin
           y:=my_func(x);
           x:=x+0.1;
      end;

readkey;
End.

нужно чтобы для "х"=-1 "у"=строго "0"...не получается ...помогите

[Prowler]

При первом проходе цикла:
a:=a*abs(k);

b:=b*(2*i); \\Вот здесь b=2 значит S никак не равно нулю
s:=s+((a/b)*p*x);
Поставь вычисление s в конец функции...

[Virtson]

а ряд то сам как выглядит ?

[Prowler]

Я ошибся... Не в конец функции, а в начало(перед вычисление b).

[-=DeS=-]

а не проще использовать константы? Или этот ряд продолжается до бесконечности?

var
const
odin=1;
dva=2;

[Umen]

Сообщение от -=DeS=-

а не проще использовать константы? Или этот ряд продолжается до бесконечности?

Вообще-то ряд на то и РЯД, чтобы до бесконечности продолжаться

[xlr8]

всё..уже всё решил..спасибо всем огромное за помощь.

[zetrix]

xlr8, если не жалко выложите исходники Вашего решения.