Пересечение кругов

[courant D'AIR]

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

[Пепел Феникса]

и в чем проблема?
определить же просто.
1)узнаем растояние между точками(s)
2)если s<r1+r2 тогда пересекаются
иначе если x==r1+r2 тогда касаются
иначе не пересекаются и не качаются.

[eoln]

Ещё для первого случая надо учесть что одна окружность может содержаться в другой, т.е добавить к условию |r1-r2|<s

[courant D'AIR]

еще раз спасибо за быстрый ответ и помощь!)

[hunter03]

procedure TForm1.Button1Click(Sender: TObject);
var r,r1,x1,x2,y1,y2,m,r2:real;  ab:real;
begin
r1:=strtofloat(maskedit1.Text);
r2:=strtofloat(maskedit2.Text);
x1:=strtofloat(maskedit3.Text);
x2:=strtofloat(maskedit4.Text);
y1:=strtofloat(maskedit5.Text);
y2:=strtofloat(maskedit6.Text);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1)) ;
 if ab<(r1+r2) then maskedit7.text:='круги пересекаются M:=-1'
 else  if ab=(r1+r2) then maskedit7.text:='круги соприкасаются M:=-1'


 else maskedit7.text:='круги не имеют общих точек M:=0'
 end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

hunter03, незачёт!
Чуть выше было же сказано, что один круг может содержаться внутри другого. При этом пересечений не будет!

[hunter03]

точно, не обратил внимания

[courant D'AIR]

а еще такой вопрос,как на эту задачку постоить нейросеть и обучить ее?!