|
program CerchiCasuali;
uses Graph,crt;
var
Gd, Gm, Raggio, Durata: Integer;
PixelX, PixelY,Numcerchi: word;
begin
Randomize;
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
repeat
setcolor(random(3+13));
pixelx:=(random(640));
pixely:=(random(480));
numcerchi:=(random(8));
durata:=(random(750));
for Raggio:= 1 to 50 do
Circle(PixelX, PixelY, Raggio *NumCerchi);
delay(Durata)
until keypressed;
CloseGraph;
end.
|
|