биллиардный шар...

[hasana]

Биллиардный шар”. Нарисуйте «биллиардный стол» – большой прямоугольник. Окружность под углом летает по столу, отскакивая от его краев по закону отражения. Попав “в лузу” (любой из четырех углов стола), оста-навливается.

помогите описать движение шара

[_-Re@l-_]

ну, что-то такое:

uses crt,graph;
var gd,gm:integer;
     dx,dy:integer;
     x1,y1,radius:integer;
begin
      gd:=detect;
      initgraph(gd,gm,' ');
      setcolor(green);
      rectangle(10,10,610,460);
      x1:=50;y1:=200;
      radius:=10;
      dx:=3;dy:=2;
      setcolor(yellow);
      circle(x1,y1,radius);
      repeat
              setcolor(0);
              circle(x1,y1,radius);
              if x1+10>610 then dx:=-dx;
              if x1-10<10 then dx:=-dx;
              if y1+10>470 then dy:=-dy;
              if y1-10<10 then dy:=-dy;
              x1:=x1+dx;y1:=y1+dy;
              setcolor(yellow);
              circle(x1,y1,radius);
              delay(10000);
     until (x1-10<=10) and (y1+10>=470) or
            (x1-10<=10) and (y1-10<=10) or
            (x1+10>=610) and (y1-10<=10) or
            (x1+10>=610) and (y1+10>=470);
     readln;
     closegraph;
end.

[hasana]

спасибо... учитывая твои советы получил следующее...

uses graph;
var sx,sy,x,y,device,mode:integer;
begin
device:=detect;
initgraph(device,mode,' ');
setfillstyle(1,green);
rectangle(20,20,620,460);
circle(32,32,10);
circle(608,32,10);
circle(32,448,10);
circle(608,448,10);
floodfill(320,249,white);
randomize;
x:=30+random(581);
y:=30+random(421);
sy:=1;
sx:=1;
repeat
setfillstyle(1,black);
setcolor(white);
circle(x,y,10);
floodfill(x,y,white);
setfillstyle(1,green);
setcolor(green);
circle(x,y,10);
floodfill(x,y,green);
x:=x+sx;
y:=y+sy;
if x<32 then  sx:=-sx;
if x>608 then sx:=-sx;
if y<32 then sy:=-sy;
if y>448 then sy:=-sy;
until (x=32)and(y=32) or (x=33)and(y=33) or
(x=608)and(y=32) or (x=607)and(y=33) or
(x=32)and(y=448) or (x=33)and(y=447) or
(x=608)and(y=448) or (x=607)and(y=447);
readln;
closegraph
end.

только вот проблема одна... бильярдные лузы закрашивачтся цветом мяча, когда тот пролетает мимо... можно с этим чё-нить сделать?

[_-Re@l-_]

можно, например, при касании мяча о бильярдный стол делать так:

setcolor(color);
rectangle(10,10,610,470);

где color - цвет бильярдного стола
(то есть снова отрисовывается стол)