Цитата:
Сообщение от БаирАбушеев
помогите, пожалуйста, срочно надо!!
|
Да пожалуйста:
Код:
Const
Eps=1E-5;
x=0.2;
Var
S,a:Real;
i:Integer;
Begin
a:=-Sqr(x*2)/2;
S:=a;
i:=2;
Repeat
i:=i+2;
a:=-a*Sqr(x*2)/(i-1)/i;
S:=S+a;
Until Abs(a)<Eps;
Writeln('Result: ',S:0:5);
Readln
End.
Код:
Const
Eps=5E-5;
x=0.1;
Var
S,a:Real;
i:Integer;
Begin
a:=x;
S:=a;
i:=1;
Repeat
i:=i+1;
a:=-a*Sqr(x);
S:=S+a/(2*i-1);
Until Abs(a/(2*i-1))<Eps;
Writeln('Result: ',S:0:5);
Readln
End.
Код:
Const
Eps=1E-6;
x=0.15;
Var
S,a:Real;
i:Integer;
Begin
a:=x*x*x;
S:=a/5;
i:=1;
Repeat
i:=i+1;
a:=-a*Sqr(x);
S:=S+a/(4*i*i+1);
Until Abs(a/(4*i*i+1))<Eps;
Writeln('Result: ',S:0:6);
Readln
End.