cokgen

program cokgencizmece;
uses dos,crt,graph,printer;
const pi = 22/7;
var gs, gm, i, X, Y, k,j:integer;
cokgen: ARRAY[1..100] OF integer;
aci: real;


procedure cokgenciz (X,Y,L,n:word);

begin
aci:= pi * ((360/ n)/180);

for i:= 1 to n do

begin
cokgen[ 2 * i-1]:= x + round (L * cos (aci*i));
cokgen[2*i] := y + round (L* sin (aci*i));

end;

SETFILLSTYLE (7,11);
SETCOLOR(12);
FILLPOLY(n,cokgen);

end;


begin
gs:=detect;
initgraph(gs,gm, 'c:\tp\bgi');
if graphresult <>grok then halt(1);
cleardevice;

cokgenciz(200,200,100,15);

readln;
closegraph;
end.