turboPascal

[masterlomaster]

Как нарисовать n-уголник?

[masterlomaster]

program ugol;
uses Crt, Graph;
var
  gd: Integer;
  gm: Integer;
  ErrCode: Integer;
var
xc,yc,R,i,N:integer;

alfa:real;
X,Y:array [1..100] of integer;

begin
writeln('                      Program');
writeln('      Sar delit svou territoriu mezdu detmi');
writeln('      territoria predstavliaet soboy n-ugolnik');
writeln;
writeln('Vvedite kol-vo n uglov');
readln(N);
begin
Gd:=Detect;
InitGraph(Gd,Gm,'C:\tp7\bgi');
  ErrCode := GraphResult;
       R:=100;
      xc:= GetMaxX div 2;  yc:= GetMaxY div 2;
   for i:= 1 to N do begin  alfa:= i*pi/N;
            x[i]:= xc + round(R * sin(alfa));
            y[i]:= yc + round(R * cos(alfa))
    end;
              MoveTo(x[N],  y[N]);
   for i:= 1 to N do  begin LineTo(x[i], y[i]); end;

		ReadLn;
     CloseGraph end;
End.

Программа строит n-угольник, но как то не красиво, хочется чтобы n-угольник был расположен четко по кругу.