Mногоугольник, вращающийся вокруг заданной точки

[Sashka]

Вот Паскаль) плиззз ))) жизнь мне спасете)

[Stilet]

ссылка не открывается.
Если это код то выложи его сюда,
И чем не мой пример не катит?

[Sashka]

эт паскаль, вторая задача ок работает(считает слова без пробелов) мнебы вот эту задачку( Изобразить на экране правильный многоугольник, вращающийся вокруг заданной точки с постоянной угловой скоростью.
и все эт моя последняя задача мне ее седня сдавать, ну в крайнем случае завтра(но желательно седня)

[Sashka]

А можете сделать с это задачи, чтою не круг был а многоугольник?
Изобразить на экране круг, две половины которого окрашены в разные цвета, совершающий внутреннее планетарное движение, т.е. обкатывающийся без скольжения изнутри по другой окружности (солнечному колесу).
Чтоб вот так было
Изобразить на экране правильный многоугольник, стороны которого окрашены в разные цвета, совершающий внутреннее планетарное движение, т.е. обкатывающийся без скольжения изнутри по другой окружности (солнечному колесу).

вот код для задачи с кругом

Program 4;
Uses CRT,Graph;
Var gd,gm : integer;
ch : char;
xp,yp,x0,y0 : integer;
i,xl,yl,j,bj,aj : integer;
dl : word;
Napr : byte;
Procedure Keys;
Begin
If (KeyPressed) and (ReadKey = ' ') then
begin
Case napr of
0 : napr:=1;
1 : napr:=0;
End;
end;
End;
Procedure Planet;
Var tj : integer;
Begin
Circle(xp,yp,25);
xl:=xp +round(25 * cos(2 * j * pi/180));
yl:=yp -round(25 * sin(2 * j * pi/180));
Line(xp,yp,xl,yl);
tj:=j - 90;
xl:=xp +round(25 * cos(2 * tj * pi/180));
yl:=yp -round(25 * sin(2 * tj * pi/180));
Line(xp,yp,xl,yl);
Keys;
xl:= xp + round(10 * cos(2 * aj * pi/180));
yl:= yp - round(10 * sin(2 * aj * pi/180));
SetFillStyle(1,Green);
FloodFill(xl,yl,white);
xl:= xp + round(10 * cos(2 * bj * pi/180));
yl:= yp - round(10 * sin(2 * bj * pi/180));
SetFillStyle(1,Red);
FloodFill(xl,yl,White);
End;
Begin
ClrScr;
gd:=detect;
initgraph(gd,gm,'C:\BP\BGI');
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
i:=0;
j:=0;
aj:=135;
bj:=45;
Dl:=4000;
Napr:=1;
Repeat
If Napr=0 then
Begin
Inc(i);
Inc(j);
Inc(aj);
Inc(bj);
End
Else
Begin
Dec(i);
Dec(j);
Dec(aj);
Dec(bj);
End;
xp:= x0 + round(150 * cos(2 * i * pi/360));
yp:= y0 - round(150 * sin(2 * i * pi/360));
Planet;
If i=360 then i:=0;
if j=180 then j:=0;
if aj=180 then aj:=0;
if bj=180 then bj:=0;
Keys;
Delay(4000);
ClearDevice;
Until (KeyPressed) and (ReadKey=#27);
End.