Transcript Document

*
Случайные числа
* uses graphabc;
* var c:integer;
* begin
* randomize;
* c:=rgb(random(255),
random(255),random(255));
* clearwindow(c);
* end.
*
* uses graphabc;
* var c,i:integer;
* begin
* c:=rgb(50, 5,55);
* clearwindow(c);
* for i:= 1 to 300 do begin randomize;
* c:=rgb(random(255),random(255),random(255));
* setpixel(random(640), random(480),c); end;
* end.
*
uses graphabc;
var c,i,r,x,y:integer;
begin
c:=rgb(50, 5,55);
clearwindow(c);
for i:= 1 to 300 do begin randomize;
c:=rgb(random(255),random(255),random(255));
setpencolor(c);r:=random(50);
setpenstyle(1);
x:= random(640);
y:= random(480);
circle(x,y,r); end;
End.
*
* uses graphabc;
* var c,i,r,x,y:integer;
* begin
* c:=rgb(50, 5,55);
* clearwindow(c);
* for i:= 1 to 300 do begin randomize;
* c:=rgb(random(255),random(255),random(255));
* setpencolor(c);r:=random(50);
* setpenstyle(1);
* x:= random(640);
* y:= random(480);
* circle(x,y,r);
* floodfill(x,y,c);
* end;
* end.
*