![]() |
|
Модераторы: Poseidon |
![]()
|
|
| ZhooZhik |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 9.1.2008 Репутация: нет Всего: нет |
Помогите пожалуйста с программой:
Даны координаты центров n окружностей и их радиусы. Определить число пересекающихся окружностей. Формула расстояния между центрами окружностей a:=sqrt(sqr(x1-x2)+sqr(y1-y2)). Структура программы примерно такая: Создаем 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. Код у меня не получается Зарание спасибо! |
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |