Задача на Паскале

[Have_idea]

Плииииз помогите, никак не могу вникнуть=(((

Дан числовой ряд и малая величина ε. Найти сумму ряда с точностью ε, общий член которого задан формулой:
a n-ное = exp(ln(2) * n) * n! / exp(ln(n) * n)

Буду очень благодарна=)

[q_proger]

Вот здесь была очень похожая задача http://programmersforum.ru/showthread.php?t=116386

[Stilet]

var n,nf,i:integer;an:double;
begin
 n:=5;nf:=1;an:=0;
 for i:=1 to n do begin
  an:=an+exp(ln(2)*i)*nf/exp(ln(n)*n);
  nf:=nf*(i+1);
end;
write('Сумма ряда',an);readln;
end.

[Hacker19_90]

Немного не так Stilet
тут короче
пускается цикл
repeat
высчитывается следующий член ряда
прибавляется к искомой величине или отнимается смотря как ряд задан
until Проверяется Следующий член ряда больше точности, если нет то искомое нашли

[Roof]

На мой взгляд так:

program mysum;
uses Crt;
var
  n: Integer;
  a, e, top, down: Real; //наша сумма, точность, числитель, знаменатель

//рекурсивная формула вычисления факториала
function fact(x: Integer): Real;
begin
  if x < 2 then
    fact := 1
  else
    fact := fact(x - 1) * x;
end;

begin
  ClrScr;
  WriteLn('Vvedite e');
  ReadLn(e);
  top := 1;
  down := 1;
  n := 1;
  a := 0;
 // пока член ряда больше заданной точности
  while (top / down > e) do
  begin
    top := exp(ln(2) * n) * fact(n); 
    down := exp(ln(n) * n);
    a := a + top / down;
    Inc(n);
  end;
  
  WriteLn(a:6:6);
  ReadLn;
end.

[Have_idea]

пасип большое=))))

[Stilet]

Тьфу Ё... Ну конечно же. Я про точность чет забыл

[Stilet]

Тьфу Ё... Ну конечно же. Я про точность чет забыл