Программа для вычисления значения функции - по формуле найти сумму ряда с заданной точностью

[КСЕНИЯ2]

Программа вычисляет значение функции в соответствии с заданием

[p51x]

И чо? Проблема в чем? Что не работает?

[newerow1989]

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

const a=0.0001;
var s,sigma:real;
    n:integer;
begin
   s:=0;
   n:=1;
   Repeat
      sigma:=1/fact(2*n+1);
      If n mod 2=1 then
         sigma:=-sigma;
      s:=s+sigma;
      n:=n+1;
   Until Abs(sigma)<a;
   Writeln(s:5:10);
   Readln;
end.

Сойдет?

[p51x]

Не сойдет. Факториал вырастит очень быстро из инта; у вас точность ряда задана, а не величина его члена - один из первых отрицательных и ваш цикл остановится.

[Аватар]

  sigma:=-1/6;
  s:=sigma;
  n:=1;
  repeat
    Inc(n);
    sigma:=-sigma/(2*n)/(2*n+1);
    s:=s+sigma;
  until Abs(sigma)<a;