Даны координаты центров n окружностей....

[ZhooZhik]

Delphi 7.Даны координаты центров n окружностей и их радиусы. Определить число пересекающихся окружностей.

[_Dmitry]

Определяйте расстояния между центрами по Пифагору
a:=sqrt(sqr(x1-x2)+sqr(y1-y2))
если это расстояние больше суммы радиусов, то окружности не пересекаются, если равно - касаются друг друга, если меньше - пересекаются или одна окружность внутри другой. Рисуйте на бумажке, анализируйте и получайте условия.

[ZhooZhik]

спасибо конечно, но это я и так знаю. У меня с кодом проблема, не получается никак...

[puporev]

Структура программы примерно такая:

Создаем
Type Okr=record;
С полями x,y,r:real;end;

Создаем функцию
Function Peres(a:Okr):boolean;
В этой функции прописываем алгоритм условий пересечения окружностей.

В двойном цикле
For i:=1 to n-1 do
For j:=i+1 to n-1 do
проверяем выполняется или нет условие, считаем положительные результаты, учитывая, что если окружность пересекается более с чем одной окружностью, то нужно считать 1.