Задача на окружности

[Ozerich]

На плоскости расположены две окружности,которые заданы центром и радиусами.определить сколько общих точек они имеют.

Помогите пожалуста.срочно!
Кода не надо,тока алгоритм

[eoln]

Расстояние между центрами F= sqrt(sqr(x1-x2)+sqr(y1-y2))
Если F=R1+R2 (радиусы), то 1 точка
Если F>R1+R2, то нет точек
Если F<R1+R2 то 2 точки
Если F=0 то совпадают (много точек)

[Ozerich]

Там 7 случаев должно быть.Ты уверен что тока 4?

[QuadroX]

Откуда там 7 случаев? Нарисуй 2 окружности которые пересекаются более чем в 2х точках. ^^

Вот тут почитай. http://dcs.isa.ru/www/vladimirv/Geom...sco_3_1_4.html

[eoln]

Да-да, поторопился
Если F<R1+R2 то 2 случая
а)Если F<R1 то одна из окружностей содержится в другой
б)Если F>R1 то есть пересечение
То же самое и для R2
Если F=0 и R1<>R2, то нет точек (+1 случай)
Вроде всё

[Ozerich]

Напиши пожалуста вместе эти 7 случаев вместе и какой ответ.
Плюс обеспечен.

[eoln]

var
  x1, x2, y1, y2, r1, r2, f, tmp: real;
begin
  write('? ');
  readln(x1,x2,y1,y2,r1,r2);
  f := sqrt(sqr(x1-x2)+sqr(y1-y2));
  if r2>r1 then begin //r1 должно быть >= r2 иначе переименуем окружности
    tmp:=r1; r1:=r2; r2:=tmp;
    tmp:=x2; x1:=x2; x2:=tmp;
    tmp:=y1; y1:=y2; y2:=tmp
  end;
  if f=0 then
    if r1<>r2 then write('0')
    else write('mnogo')
  else
    if f>r1+r2 then write('0')
    else if f=r1+r2 then write('1')
    else if r1-r2<f then write('2')
    else if r1-r2=f then write('1')
    else write('0');
  readln
end.

[Ozerich]

Большое спасибо

[Serge_Bliznykov]

eoln, ну раз на эту тему дана ссылочка, то позволю себе чуть-чуть подправить (соптимизировать) Ваше решение...

мне кажется, что блок смены местами r1 и r2 явно лишний, если добавить в 2-х местах программы вычисление модуля числа!
примерно так:

var
  x1, x2, y1, y2, r1, r2, f : real;
begin
  write('? ');
  readln(x1,x2,y1,y2,r1,r2);
  f := sqrt(sqr(x1-x2)+sqr(y1-y2));
  if f=0 then
    if r1<>r2 then write('0')
    else write('mnogo')
  else
    if f>r1+r2 then write('0')
    else if f=r1+r2 then write('1')
    else if abs(r1-r2)<f then write('2')
    else if abs(r1-r2)=f then write('1')
    else write('0');
  readln
end.

[psycho-coder]

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

На плоскости расположены две окружности,которые заданы центром и радиусами.определить сколько общих точек они имеют.

Хочу заметить, что если радиусы окружностей и их центры совпадут, то количество общих точек будет 360 в градусах и бесконечно много... "не в градусах" )))