Const eps=1e-4;
var n,z:integer; x,sx,an,s:real;
begin
x:=0.62;
sx:=sin(x);
n:=1; z:=-1;
an:=1; s:=0;
while abs(an)>eps do
begin
z:=-z;
n:=n+1;
an:=z*sx/(n*(n*n-1));
s:=s+an;
end;
writeln('k = ',n-1,' s = ',s);
end.
Результат:
<span>k = 17 s = 7.92376332816429E-002</span>
Uses GraphABC;
Var
R:integer:=70; //радиус Солнца
A:array[1..4,1..5] of integer;
//A[1] - x
//A[2] - y
//A[3] - r
//A[4] - r орбиты
v:real:=0.03;
k:integer:=10; // Коэффициент масштабирования орбит
Begin
Window.Maximize;
A[1,3]:=10;
A[1,4]:=R+A[1,3]*k;
A[2,3]:=13;
A[2,4]:=A[1,4]+A[2,3]*k;
A[3,3]:=17;
A[3,4]:=A[2,4]+A[3,3]*k;
A[4,3]:=A[3,3] div 4;
A[4,4]:=A[3,3]+A[4,3]*k;
LockDrawing;
SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);
Repeat
Window.Clear;
Brush.Color := clYellow;
FillCircle(0,0,R);
Brush.Color := clGray;
A[1,1]:=round(A[1,4]*Cos(v*3));
A[1,2]:=round(A[1,4]*Sin(v*3));
FillCircle(A[1,1],A[1,2],A[1,3]);
Brush.Color := clOrange;
A[2,1]:=round(A[2,4]*Cos(v*3/4));
A[2,2]:=round(A[2,4]*Sin(v*3/4));
FillCircle(A[2,1],A[2,2],A[2,3]);
Brush.Color := clBlue;
A[3,1]:=round(A[3,4]*Cos(v/4));
A[3,2]:=round(A[3,4]*Sin(v/4));
FillCircle(A[3,1],A[3,2],A[3,3]);
Brush.Color := clGray;
A[4,1]:=A[3,1]+round(A[4,4]*Cos(20*v));
A[4,2]:=A[3,2]+round(A[4,4]*Sin(20*v));
FillCircle(A[4,1],A[4,2],A[4,3]);
v:=v+0.03;
Redraw;
Until false;
End.