Вычислить сумму ряда

[zmey1]

Все привет!

Помогите сделать сделать прогу на паскале
n
y = ∑ (-1)^(k) / k! * (x/2)^(n+k), для |x| < 1;
k=0

Эту функцию должна решать прога, n-ое количество раз, а потом сложить все получившиеся ответы, цикл начинается с нуля...
Я пробовал сделать нихрена не получилось заткнулся на последнем цикле и там по цепочке все по рушилось(

Помогите добрые программисты=)

_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!

Модератор.

[<- DelpHIFanat ->]

Может так:

program Project1;

{$APPTYPE CONSOLE} {в Паскале писать не нужно}

Var
  x, Sum: Real;
  n, k: Integer;

Function MyIntPower(Const x: Real; k: Integer): Real;
Var
  Res: Real;
  i: Integer;
Begin
  Res:=1;
  For i:=1 To k Do
    Res:=Res*x;
  MyIntPower:=Res;
End;

Function Fakt(n: Byte): LongWord;
Var
  Res: LongWord;
  i: Byte;
Begin
  If (n<2) Then
    Begin
      Fakt:=1;
      Exit;
    End;
  Res:=1;
  For i:=1 To n Do
    Res:=Res*i;
  Fakt:=Res;
End;

begin
  Write(' x = ');ReadLn(x);
  Write(' n = ');ReadLn(n);

  If (Abs(x)>=1) Then
    Begin
      WriteLn('Wrong x!');
      ReadLn;
      Halt;
    End;

  Sum:=0;
  For k:=0 To N Do
    Sum:=Sum+MyIntPower(-1, k)/Fakt(k)*MyIntPower((x/2), (n+k));

  WriteLn('Summa = ', Sum:3:9);

  ReadLn;
end.

Если писать в Delphi, то функцию MyIntPower можно не описывать - есть функция IntPower в модуле Math.