Помогите с Pascal'ем

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
Alexander
Сообщения: 3
Зарегистрирован: 10 окт 2004, 01:39
Контактная информация:

10 окт 2004, 01:51

Всем доброго времени суток. Помогите решить средствами Pascal (можно Delphi) такую задачку:
1) Имеется область ограниченная окружностью, в ней в случайном месте появляется точка и она случайно начинает перемещеться в этой области. Как только точка достигает границы области она там и остаётся и в случайном месте этой области появляется новая точка, которая повторяет подвиг предыдущей и так пока не надоест раз так 1000 а то и более.
2) Когда последующая точка касается уже имеющейся точки, то она останавливается и появляется новая и т.д.
С 1) я вроде как разобрался, сравнивая на каждом шагу расстояние от точки до центра окружности с радиусом, а вот как быть со вторым условием? Хранить в памяти 1000 пар координат точек не хотелось бы, может есть какие-нибудь соображения? И по первому пункту пришлите свои предложения, мне интересны мнения других.
Заранее благодарен.
mutANT
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

10 окт 2004, 03:07

Хранить в памяти 1000 пар координат точек не хотелось бы, может есть какие-нибудь соображения?

Тут собственно видится 2 решения: надо либо все-таки хранить 1000 пар, либо просто перед перемещением точки посмотреть какого цвета место будущего местоположения, если не цвета фона, то все - стоп.
Ответить