Вращение равносторонних многоугольников по своей оси.

uses graph, crt;
const n=8;{изменяя "n" вы получите любой другой многоугольник}
var poly:array[1..n+1] of pointtype;
 r,x,y,i,driver,mode:integer;
 alpha:real;
 s:string;
begin
 write('radius: ');
 readln(r);
 alpha:=0;
 driver:=detect;
 InitGraph (driver,mode, 'd:\bp\bgi');
 if GraphResult<>GroK then halt(1);
 clearviewPort;
 repeat
 x:=GetMaxX shr 1;
 y:=GetMaxY shr 1;
 for i:=1 to n +1 do begin
 poly[i].X:=x+round(R*Cos(alpha+(i-1)*2*pi/n));
 poly[i].Y:=y+Round(R*sin(alpha+(i-1)*2*pi/n));
 end;
 SetColor(10);
 DrawPoly(n+1,poly);
alpha:= alpha+pi/180;
 delay(1000);
 setcolor(0);
 DrawPoly(n+1,poly);
 until KeyPressed;
 closeGraph;
 end.

автор sRnNikita