Program bubbles;
uses Graph, Crt;
var gd, gm, ec, uf: integer;
Begin
 gd:=Detect;
 gm:=0;
 InitGraph(gd, gm, ' ');
 Randomize;
 for gm:=1 to 500 do
 begin
 ec:=ec+1;
 if ec=16 then ec:=1;
 SetColor(ec);
 Circle(Random(GetMaxX), Random(GetMaxY), Random(gd+10));
 end;
 SetColor(Random(White));
 SetTextStyle(0, HorizDir, 5);
 OutTextXY(50, 29, 'Bubbles');
 ReadKey;
 CloseGraph;
End.


2012-06-15 • Просмотров [ 1082 ]