Cokgenlerden Gül

program cokgencizmece;
uses dos,crt,graph,printer;
var gs, gm, i, X, Y, k,j,r,m:integer;

cokgen: ARRAY[1..100] OF integer;
cokgenX: ARRAY [1..100] of integer;
cokgenY: 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*2));
cokgen[2*i] := y + round (L* sin (aci*i*2));

end;

for i:= 1 to n do
begin
cokgenX[i] := cokgen [2 * i -1];
cokgenY[i] := cokgen [2 * i];
end;

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

for i:= 1 to 250 do
begin
r:= random (n)+ 1;
k:= random (n)+ 1;

line (cokgenX[r],cokgenY[r], cokgenX[k],cokgenY[k]);

end;



end;
procedure baskacokgenciz (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 * sin (aci*i*2));
cokgen[2*i] := y + round (L* cos (aci*i*2));

end;

for i:= 1 to n do
begin
cokgenX[i] := cokgen [2 * i -1];
cokgenY[i] := cokgen [2 * i];
end;

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

for i:= 1 to 250 do
begin
r:= random (n)+ 1;
k:= random (n)+ 1;

line (cokgenX[r],cokgenY[r], cokgenX[k],cokgenY[k]);

end;



end;
begin

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

cleardevice;


cokgenciz(300,200,200,20);


baskacokgenciz(300,200,100,7);
baskacokgenciz(300,200,200,7);
baskacokgenciz(300,200,50,7);

readln;
closegraph;
end.