pascal abc graphabc

Ответ от Евгений Попов[гуру]
PenColor: поменяй на другой

Ответ от F f[активный]
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
var c(n..,m..) of color;
begin
n:=7;
m:=7;
brush.color(c)
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clwhite);
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.

Ответ от ?*PeAr^MRmlAdE?™[мастер]
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
begin
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clred);//в этой строчке цвет не должен быть белым (clwhite), а, например, clred, clblack, clgreen
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.

Ответ от 22 ответа[гуру]