uses winmouse,graph;
var
gm,gd:smallint;x,y,but:longint;
begin
gm:=8;
initGraph(gd,gm,'');
randomize;
while true do
begin
setcolor(random(20)+32);
getmousestate(x,y,but);
circle(x,y,70);
end;
closegraph;
end.
第一个又短又像样的程序
var
gm,gd:smallint;x,y,but:longint;
begin
gm:=8;
initGraph(gd,gm,'');
randomize;
while true do
begin
setcolor(random(20)+32);
getmousestate(x,y,but);
circle(x,y,70);
end;
closegraph;
end.
第一个又短又像样的程序
