Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Object Pascal: кроссплатформенные технологии > Uses Graph)


Автор: Lecra 2.6.2008, 17:37
Помогите, пожалуйста, решить следующую задачу в графическом режиме Pascal:

В точке P находится собака, а в точке Q - кошка. Расстояние между ними равно 100 м. Кошка бежит вдоль прямой S с постоянной скоростью 5 м/сек. Собака бежит в направлении кошки со скоростью 10 м/сек. Найти траекторию собаки за первые 15 (10, 20) секунд погони. Указание - заменить кривую ломанной (за каждую секунду): за первую секунду кошка пробегает отрезок QX, а собака - PY, и т. д. В начале каждой секунды собака принимает решение о направлении погони.

Т. е. задача на имитацию движения (собака и кошка - объекты).

Заранее благодарна за любую помощь

Автор: Filon 2.6.2008, 19:09
А в чем именно состоит проблема/сложность?

Автор: Lecra 2.6.2008, 19:31
Вот мой код.

Мне нужно, чтобы вывод траектории был посекундный, то есть, например, при нажатии "Enter" происходит вывод на экран одной части траектории кошки и собаки и делается отметка на траектории. В этом вся сложность.

Автор: ama_kid 2.6.2008, 20:27
Цитата(Lecra @  2.6.2008,  19:31 Найти цитируемый пост)
Мне нужно, чтобы вывод траектории был посекундный
Твой код вроде бы работоспособный, если надо делать посекундно - то просто вставь в конец цикла Delay(1000); - цикл будет крутиться раз в секунду (единственное - на быстрой машине придется либо константу времени увеличивать, либо цикл организовывать дополнительно на задержку)

Автор: Lecra 2.6.2008, 21:04
А может просто ReadLn в цикл поставить?

Автор: volvo877 3.6.2008, 08:28
Цитата(Lecra @  2.6.2008,  19:31 Найти цитируемый пост)
Вот мой код.

Это не твой код...  smile  Тебе напомнить, ЧЕЙ он???

Не надо выдавать чужое за свое. Ну, а раз он "твой" - то будь добра поправить его сама - для автора кода в этом не должно быть никакой проблемы...

Автор: Lecra 3.6.2008, 11:17
Ты собирался его запатентовать?  smile  
И вообще, складывается впечатление, что ты просто всех заваливаешь, или эти форумы для этого и предназначены?

Вот и поправлю его сама, всё равно помощи тут вряд ли дождёшься

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)