Помогите написать формулу на языке Delphi

[Инесса]

Пожалуйста, помоги! У меня курсовая горит, а я в формулах не могу разобраться. Пожалуйста, помоги если сможете. Ни как не могу написать формулу на Дельфи.
Заранее огромное спасибо!

[alexBlack]

Сообщение от Инесса

Ни как не могу написать формулу на Дельфи.

А в чем конкретно проблема ?

a в степени n

function power(A, N:integer):integer;
begin
    result := 1;
    for i:=1 to N do result := result * A
end;

Факториал обсуждался неоднократно

function factorial(N:integer):integer;
...

Начнем вычислять первое выражение:

  // вычисление суммы от 0 до n-1 
  pp := 0;
  for k:=0 to n-1 do begin
     pp := pp + power(a, k) / factorial(k)
  end;

  p0 = pp + power(a, n) / (1-a/n)*factorial(n);
  p0 = 1/p0

ну и так далее