s:=1;
pp:=1;
ff:=1;
n:=0;
repeat
x:=pp/ff;
pp:=pp*4;{Степень}
ff:=ff*(3*n+1)*(3*n+2)*(3*n+3);{Факториал}
inc(n);
s:=s+x;
until x<=1e-3;
сумма ряда ,факториал! turbo pascal
4^n / (3n)! (факториал)
использовать while.
help plz
[highlight=pascal]
function fact(n : Integer) : Longint;
begin
if (n <= 1) fact := 1;
fact := n * fact(n - 1);
end;
function pow(a : Real; x : Real) : Real;
begin
if (a = 0) pow := 0;
if (x = 0) pow := 1;
pow := exp(x * ln(a));
end;
var
n : Integer;
sum : Real;
x : Real;
begin
...
sum := 1;//при n = 0 получим 1
n := 1;
x := 1
while x > 0.001 do begin
x := pow(4,n)/fact(3*n);
sum := sum + x;
inc(n);
end;
...
end.
[/highlight]
Но лучше так(без попрограмм):