Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2008, 17:23   #1
ZhooZhik
 
Регистрация: 07.01.2008
Сообщений: 8
Сообщение Даны координаты центров n окружностей....

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

Последний раз редактировалось ZhooZhik; 09.01.2008 в 18:27.
ZhooZhik вне форума Ответить с цитированием
Старый 09.01.2008, 17:41   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

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

Последний раз редактировалось _Dmitry; 09.01.2008 в 18:24.
_Dmitry вне форума Ответить с цитированием
Старый 09.01.2008, 18:27   #3
ZhooZhik
 
Регистрация: 07.01.2008
Сообщений: 8
По умолчанию

спасибо конечно, но это я и так знаю. У меня с кодом проблема, не получается никак...
ZhooZhik вне форума Ответить с цитированием
Старый 09.01.2008, 19:11   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

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

Создаем
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.
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. 1.Даны массивы.2 Дан X найти... Stelix Помощь студентам 7 20.11.2007 21:08
Даны символы S1......... Artem1987 Помощь студентам 1 10.11.2007 14:59
Добавление окружностей ivp88 Помощь студентам 3 14.02.2007 16:31
поиск Р - абсолютных центров в графе grinders Помощь студентам 1 14.01.2007 09:57