составить алгоритм и программу

[anast2594]

составить алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы.Последовательность задана формулой
An=(-1)^n * (2n)!/2n.
Просьба составить программу..

[VIK_aka_TOR]

решение влоб...

var
n: integer;
x : real;

function fact(x :integer) : uint64; // вычисление факториала
begin
  if x = 1 then
    fact := 1
  else fact := x * fact(x - 1);
end;

begin
  for n:=1 to 15 do
    begin
      x := (power(-1,n) * fact(2*n) / (2*n));
      writeln('А',n,' = ', x );
    end;
end.

[BDA]

VIK_aka_TOR, совсем уж в лоб
Кстати, сумма не подсчитана.
(2n)!/(2n)=(2n-1)!
И считает неправильно
Мой вариант:

uses
  crt;

var
  n: integer;
  x, s: extended;

begin
  x := -1;
  s := x;
  writeln('А1 = ', x:0:0);
  for n := 2 to 15 do
  begin
    x := x * (-1) * (2 * n - 1) * (2 * n - 2);
    s := s + x;
    writeln('А', n, ' = ', x:0:0);
  end;
  writeln('S = ', s:0:0);
end.

http://ideone.com/DYukl
-8841761993739702000000000000000 (A15 в программе)
-8841761993739701954543616000000 (A15 в калькуляторе)

взаимности ради и вас поправю...) А1 в сумме не учли)

Точно) исправлено

[VIK_aka_TOR]

и вправду... что то точность в конце теряется...
взаимности ради и вас поправю...) А1 в сумме не учли)

[anast2594]

Блин спасибо вам большое!)))
очень выручили!))))