Найти сумму ряда

[Alekzinder]

помогите с этим...

[Stilet]

Примерно так:

function fac(n:integer):Integer; begin result:=1; while n>0 do begin result:=result*(2*n-1); dec(n);end;
...
n:=1;
a2:=0;
a:=fac(n)/exp(n*ln(3));
while abs(a-a2)>0.0001 do begin s:=s+a;
 inc(n); a2:=a;a:=fac(n)/exp(n*ln(3)); 
end;
write(s);
...

Идея понятна?

[Sciv]

Что вызывает затруднения?

e:=0.0010;
sum:=0;
n:=1;
chisl:=1;
znam:=1;
repeat
  chisl:=chisl*(2*n-1);
  znam:=znam*3;
  a:=chisl/znam;
  sum:=sum+a;
  inc(n);
until abs(a)>=e;

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

[Alekzinder]

большое спасибо) все понял

[netpolice]

Сообщение от Sciv

Что вызывает затруднения?

e:=0.0010;
sum:=0;
n:=1;
chisl:=1;
znam:=1;
repeat
  chisl:=chisl*(2*n-1);
  znam:=znam*3;
  a:=chisl/znam;
  sum:=sum+a;
  inc(n);
until abs(a)>=e;

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

Элегантное решение, дааа забыли мы времена БК и Z80

[s-andriano]

А ничего, что ряд расходящийся?