Вычислить сумму с точностью до e (Pascal)

[HailMe]

Здравствуйте. Помогите с задачкой, пожалуйста: необходимо вычислить сумму с точностью до е


Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем е - это и все последующие слагаемые можно уже не учитывать.
Заранее спасибо

[gaw4]

http://www.programmersforum.ru/showthread.php?t=213571

[HailMe]

Спасибо, но у меня вот проблема с факториалом, как его непосредственно влепить в цикл? Пытался через функцию, программа выполняется, но не правильно:

var k,i,n:integer;
    Sum,S,e,x,f:real;
    function Fac(k:integer):longint;
var i,f:longint;
begin
f:=1;
for i:=1 to n do
if odd(i) then f:=2*f*i;
Fac:=f;
end;
begin
k:=0; Sum:=0; S:=1;f:=1; readln (e); readln (x);
while abs(S)>e do
  begin
   s:=power(-1,k)*power(x,4*k+1)/Fac(k)*(4*k+1);
 sum:=sum+s;
 k:=k+1;
 end;
 writeln (sum);
 end.

[gaw4]

мб так

var k:integer;
    Sum,S,e,x:real;
    
function Fac(n:integer):real; //longint;
var i:integer;
begin
result:=1;
for i:=1 to n do
 result:=result*i;
end;

begin
k:=0; Sum:=0;
writeln('eps='); readln (e);writeln('x='); readln (x);
repeat
   s:=power(-1,k)*power(x,4*k+1)/(Fac(2*k)*(4*k+1));
     sum:=sum+s;
       inc(k);
 until  abs(s)<e ;
 writeln (sum);
 end.

[HailMe]

Больше похоже на правду, но если считать вручную, то при епсилуме 0.1 и х 1, должно выходить 1, а тут 0.9. Ну или я криво считаю))

[HailMe]

Сменил repeat, на while, вышло как раз так, как считал вручную. Спасибо за помощь

[HailMe]

А не, надо оставлять reapeat.