Сумма ряда!

[sermog]

Вычислить сумму ряда, общий член которого равен An=n!/(2n)! c точностью е=0,001.

[Mandrivnyk]

нужен алгоритм, блок-схема, или реализация на определенном языке?
в общем, стучи в аську -- договоримся.

[sermog]

Алгоритм на delphi. Я что-то накидал, но чувствую не то.....

[New man]

VVVVVVVVVVVVV
Думать надо, студент

[sermog]

А можно на Delphi?

[New man]

	
	

	
	

	
	

	
	

	
	

	
	
program x;
{$APPTYPE CONSOLE}
function Ocher(const n:inteeeeeger):real;
var i,x:integer;
begin
  x:=1;
  for i:=n+1 to 2*n do x*i;
  result:=1/x;
end;
var n,j:integer;
   sum:extended;
begin
  write('Vvodite');
  readln(n);
  sum:=0;
  for i:=1 to n do
      sum:=sum+Ocher(i);
   writeln('Vse  ',sum:5:4);
readln;
end.