Программирование циклической структуры в Pascal ABC

[БаирАбушеев]

Программирование циклической структуры в Pascal ABC

помогите, пожалуйста, срочно надо!!:tehnari_ru_837:

 

[Vladimir_S]

помогите, пожалуйста, срочно надо!!:tehnari_ru_837:

Да пожалуйста:

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.