ar x,eps,k,s:real; n:integer;
begin
eps:=strtofloat(Edit1.text);
x:=strtofloat(Edit2.text);
k:=1;
s:=0;
n:=0;
repeat
inc(n);
s:=s+k;
k:=Exp(n*Ln(-1))*Exp(n*Ln(x))/Exp(2*Ln(n+1));
until k<eps;
StaticText1.Caption:=floattostr(n);
StaticText2.Caption:=floattostr(s);
end;
Объяснение:
ar x,eps,k,s:real; n:integer;
begin
eps:=strtofloat(Edit1.text);
x:=strtofloat(Edit2.text);
k:=1;
s:=0;
n:=0;
repeat
inc(n);
s:=s+k;
k:=Exp(n*Ln(-1))*Exp(n*Ln(x))/Exp(2*Ln(n+1));
until k<eps;
StaticText1.Caption:=floattostr(n);
StaticText2.Caption:=floattostr(s);
end;
Объяснение: