Полезные коды для PascalABC.NET - PascalABC.NET - Ответ 4727269

uses graphABC;
var x,y,kx,ky: integer;
 
//процедура рисования кнопок
procedure keys;
begin
setbrushcolor(clwhite);
rectangle(200,150,240,190);
rectangle(260,150,300,190);
rectangle(200,210,240,250);
rectangle(260,210,300,250);
setpenwidth(4);
//левая верхняя стрелка
line(210,160,230,180);
line(210,160,210,170);
line(210,160,220,160);
//правая верхняя стрелка
line(290,160,270,180);
line(290,160,290,170);
line(290,160,280,160);
//левая нижняя стрелка
line(230,220,210,240);
line(210,240,210,230);
line(210,240,220,240);
//правая нижняя стрелка
line(270,220,290,240);
line(290,240,290,230);
line(280,240,290,240);
setpenwidth(1);
end;
//процедура рисования фона - бильярдный стол
procedure Fon;
begin
clearwindow;
setbrushcolor(clbrown);
rectangle(10,10,490,390);
setbrushcolor(clgreen);
rectangle(20,20,480,380);
setbrushcolor(clbrown);
keys;
end;
//обработка нажатия кнопки мыши
procedure MouseDown(x,y,mb: integer);
begin
  if mb=1 then //если левая кнопка
     begin
     if (x>200) and (x<240) and (y>150) and (y<190) then 
        begin
        kx:=-1; ky:=-1;
        end;
     if (x>260) and (x<300) and (y>150) and (y<190) then
        begin
        kx:=1; ky:=-1;
        end;
     if (x>200) and (x<240) and (y>210) and (y<250) then
        begin
        kx:=-1; ky:=1;
        end;
     if (x>260) and (x<300) and (y>210) and (y<250) then
        begin
        kx:=1; ky:=1;
        end;
     end;
end;
//процедура рисования шарика
procedure Shar(var xx,yy,kkx,kky: integer);
begin
if (xx<30) or (xx>470) then kkx:=kkx*(-1);
if (yy<30) or (yy>370) then kky:=kky*(-1);
xx:=xx+kkx;
yy:=yy+kky;
setbrushcolor(clwhite);
circle(xx,yy,10);
end;
 
begin
lockdrawing;
Fon;
//обработчик нажатия
OnMouseDown:=MouseDown;
x:=250;
y:=200;
//бесконечный цикл
repeat
Fon;
Shar(x,y,kx,ky);
sleep(10);
redraw;
until false;
end.