rocerc.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 24 行

program cerc;
uses graph;
var gd,gm, maxx, maxy, i,n:integer;
begin
gd:=detect;
initgraph(gd,gm,'E:\pascal\BGI');
setbkcolor(yellow);
maxx:=getmaxx;
maxy:=getmaxy;
n:=1;
repeat
      begin
      for i := 1 to  5000 do
                     begin
                     randomize;
                     setcolor(random(16));
                     circle(maxx div 2,maxy div 2,random(240));
                     end;
      n:=n+1;
      end;
until n=10;
readln;
closegraph;
end.