Анимация яхты

[NovichekVPascale]

Необходимо сделать яхту, которая едет до конца экрана. При достижении конца экрана яхта должна появляться с другой стороны. Яхта должна быть нарисована с помощью геометрических примитивов (кружков, дуг, линий) и управление движением вправо и влево должно происходить с помощью стрелок на клавиатуре. Действия должны происходить в Паскале, с использованием модуля Graph. Помогите пожалуйста!

[Serge_Bliznykov]

для начала изучите вот эти темы:

http://www.programmersforum.ru/showthread.php?t=45411

http://www.programmersforum.ru/showthread.php?t=145943

а по сути, сначала нарисуйте вашу яхту с помощью графических примитивов. Обязательно все примитивы рисуйте от базовой точки.
ну, например:

xb := 100; yb:=50;
MoveTo(xb, yb);
LineTo(xb+20,yb + 80);
circle(xb+20, yb+80, 30);

это понадобится обязательно, когда нужно будет стереть старое изображение, "сдвинуть" координаты и нарисовать изображение в новом месте (а именно так и создаётся анимация)

Начните делать, приводите тут свой код, Вам обязательно помогут!


p.s. ну, или, если Вам проще заплатить, чем сделать это несложное задание самому - тогда обращайтесь в раздел Фриланс