| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > 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 |
| Твой код вроде бы работоспособный, если надо делать посекундно - то просто вставь в конец цикла Delay(1000); - цикл будет крутиться раз в секунду (единственное - на быстрой машине придется либо константу времени увеличивать, либо цикл организовывать дополнительно на задержку) |
| Автор: Lecra 2.6.2008, 21:04 |
| А может просто ReadLn в цикл поставить? |
| Автор: volvo877 3.6.2008, 08:28 |
Это не твой код... Не надо выдавать чужое за свое. Ну, а раз он "твой" - то будь добра поправить его сама - для автора кода в этом не должно быть никакой проблемы... |
| Автор: Lecra 3.6.2008, 11:17 |
| Ты собирался его запатентовать? И вообще, складывается впечатление, что ты просто всех заваливаешь, или эти форумы для этого и предназначены? Вот и поправлю его сама, всё равно помощи тут вряд ли дождёшься |