Если круги коснуться друг друга, или границ монитора, то должны отскочить

[Michael_Gazorov]

Бредовое задание,но мне нужно,что бы два моих круга могли двигаться в разные стороны(Рандомно).Если они коснуться друг друга,или границ монитора,то должны отскочить .Я сделал круги,осталось только движение и условие.Третий день пытаюсь .Ничего не выходит:c

Program Circle_Name;
USES CRT,Graph;
Procedure Graphinterface;
Var gd,gm:integer;
begin
clrscr;
gd:=detect;
InitGraph(gd,gm,'');
end;
  begin
  clrscr;
  Graphinterface;
  Setcolor(red);
  Setfillstyle(1,red);
  Circle(500,150,50);
  Floodfill(500,150,red);
  SetTextJustify(CenterText,CenterText);
  SetColor(Green);
  OutTextXY(500,150,'Misha');
  Setcolor(blue) ;
  Setfillstyle(1,blue);
  Circle(150,150,50);
  FloodFill(150,150,blue);
  SetTextJustify(CenterText,CenterText);
  SetColor(Green);
  OutTextXY(150,150,'Misha');
 Readkey;
 CloseGraph;
 end.

[type_Oleg]

Сообщение от Michael_Gazorov

...Если они коснуться друг друга,или границ монитора,то должны отскочить .Я сделал круги,осталось только движение и условие.Третий день пытаюсь ...

Я у вас не вижу никаких почти переменных. Одни цифры.
Вот вместо Circle(500,150,50) сделайте например Circle(x1,y1,r1) , и меняйте координаты центра x1,y1 - это и будет движение одной окружности.
Также и вторую сделать - Circle(x2,y2,r2)

И проверяйте расстояние между окружностями по теореме Пифагора. Если оно стало <= (r1+r2) - значит они прикоснулись, и должны отскочить. Как там в физике - абсолютно упругий удар. То есть меняются направления движения.

[Luuzuk]

1) Рисование круга вывести в отдельную процедуру, которая будет принимать координаты центра круга и его радиус

2) В цикле меняете координаты кругов: сначала рисуете черный круг по текущим координатам, а потом белый по новым (тут надо ввести переменные, которые будем прибавлять к координатам круга на каждом шаге, т.н. приращение координат). Вот вам и движение )

3) На каждом шаге цикла проверяете не коснулся ли круг стены (центр круга +- его радиус не должен быть "<0" или "> ширины/высоты экрана". НЕ коснулся ли круг другого круга - расстояние между центрами кругов (привет школьной геометрии) не должно быть меньше суммы их радиусов. Если есть касание - меняете знак приращения одной из координат круга -> он начинает двигаться в другую сторону
-------
прозевал ответ предыдущего комментатора, там по сути уже все написано

[Michael_Gazorov]

Сообщение от type_Oleg

Я у вас не вижу никаких почти переменных. Одни цифры.
Вот вместо Circle(500,150,50) сделайте например Circle(x1,y1,r1) , и меняйте координаты центра x1,y1 - это и будет движение одной окружности.
Также и вторую сделать - Circle(x2,y2,r2)

И проверяйте расстояние между окружностями по теореме Пифагора. Если оно стало <= (r1+r2) - значит они прикоснулись, и должны отскочить. Как там в физике - абсолютно упругий удар. То есть меняются направления движения.

Спасибо