rogram Star;
uses crt,graph;
const topstar: array[1..18]of integer=(300,125,325,225,425,250,325,275,300,375,2 75,275,180,250,275,225,300,125);
var i,j,grdr,grmd: integer;
begin
grdr:=detect;
initgraph(grdr,grmd,'');
settextstyle(DefaultFont,0,1);
outtextxy(140,150,'STAR');
settextstyle(DefaultFont,1,4);
outtextxy(500,150,'STAR');
repeat
{ j:=imod12;}
setfillstyle(random(13),random(13));
fillpoly(9,topstar);
{ inc(i);}
delay(500);
until keypressed;
closegraph;
end.
|