Найти непересекающиеся окружности Опции

[Carrera]

Я вообще не понимаю в програмировании.Никогда не было информатики а тут надо одну задачу решить и зачет.Рещите пожалуйста кто умеет .Нужно в турбо паскале.Буду оч благодарна(шоколадку обеспечу))


Окружность на плоскости задана координатами X,Y,R-радиус(все значения формируются случайным образом).Из 20-ти окружностей показать те,которые не пересекают другие.

[TarasBer]

> j:= 1;
> while (j<=n) and ((i=j) or (Sqrt(Sqr(c[j].x-x)+Sqr(c[j].y-y))>c[j].r+r)) do inc(j);

Мне этот код почему-то напомнил вот это: http://govnokod.ru/4883
Там человек задался целью написать всю логику программы в одном булевом выражении в заголовке while.
Я надеюсь, ты это написал не всерьёз, а чтобы оставить человеку "на дом" задачу переделать это в нормальный вид.


Ну и чисто от себя добавлю, что в данной задаче можно избавиться от квадрата (перебор всех пар окружностей), если ввести сетку и хеширование.
Я уж не говорю о том, что вместо sqrt(a)>b выгоднее проверять a>sqr(b).

Сообщение отредактировано: TarasBer - 19.10.2011 15:40

[Lapp]

Я надеюсь, ты это написал не всерьёз, а чтобы оставить человеку "на дом" задачу переделать это в нормальный вид.
Ну и чисто от себя добавлю, что в данной задаче можно избавиться от квадрата (перебор всех пар окружностей), если ввести сетку и хеширование.

Ну, ясно дело, тут есть, что оптимизировать.. ))

Я уж не говорю о том, что вместо sqrt(a)>b выгоднее проверять a>sqr(b).

Может быть, но я не уверен..