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

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

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

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

А в чем именно состоит проблема/сложность?

Вот мой код.

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

Присоединённый файл ( Кол-во скачиваний: 18 )
 LAB2_4.PAS 1,03 Kb

Твой код вроде бы работоспособный, если надо делать посекундно - то просто вставь в конец цикла Delay(1000); - цикл будет крутиться раз в секунду (единственное - на быстрой машине придется либо константу времени увеличивать, либо цикл организовывать дополнительно на задержку)

А может просто ReadLn в цикл поставить?

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

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

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

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