Разработка приложения в Delphi

[дим1]

Вычислить сумму ряда,общий член которого равен An=n!/3n^n с точностью e=0.001

http://programmersforum.ru/attachmen...=1&d=136190826

Спасибо!

[KooKish]

Построить 14-ое здание, предоставить смету и список служащих.
Пожалуйста!

А если быть серьезным, кидайте свои наброски А там уже разберемся.

[GreenWizard]

где-то так:

function f(N: Integer): Double;
var
  Fact: Double;
  i: Integer;
  NN: Double;
begin
  Fact := 1;
  NN := 1;
  for i := 1 to N do
  begin
     NN := NN * N;
     Fact := Fact * i;
  end;
  Result := Fact / (3 * NN);
end;

function CalcSum(Delta: Double): Double;
var
  Last: Double;
  N: Integer;
begin
  N := 1;
  Last := f(N);
  Result := 0;
  while Abs(Last) >= Delta do
  begin
    Result := Result + Last;
    N := N + 1;
    Last := f(N);
  end;
end;