помогите написать программу на паскале

Компьютеры программирование программы pascal паскаль

нужно составить сложную анимацию,движение вперёд-назад-лёгкое..

Примечание:
uses GraphABC;
begin
SetWindowSize(1000,735);


Circle(500,220,20);FloodFill(500,221,clyellow);

Circle(500,300,432);Circle(500,300,430); FloodFill(510,400,clNavy);
Circle(500,300,354);Circle(500,300,352); FloodFill(510,400,clNavy);
Circle(500,300,290);Circle(500,300,288); FloodFill(510,400,clNavy);
Circle(500,300,222);Circle(500,300,220); FloodFill(510,400,clNavy);
Circle(500,300,162);Circle(500,300,160); FloodFill(510,400,clNavy);
Circle(500,300,102);Circle(500,300,100);


FloodFill(510,350,clNavy);
Circle(500,300,45);FloodFill(510,310,clyellow);
Circle(400,180,20);FloodFill(400,181,clSkyBlue); // 2
Circle(400,180,17);FloodFill(400,189,clSkyBlue); // 2
Circle(400,180,13);FloodFill(400,189,clSkyBlue); // 2
Circle(400,180,10);FloodFill(400,181,clSkyBlue); // 2
Circle(400,180,7);FloodFill(400,181,clSkyBlue); // 2
Circle(400,180,3);FloodFill(400,181,clSkyBlue); // 2

Circle(560,221,17);FloodFill(561,222,clMaroon); // 1
Circle(590,100,25);FloodFill(591,111,clMoneyGreen); // 3
Circle(711,500,29);FloodFill(712,512,clSilver);
Circle(200,480,30);FloodFill(201,490,clTeal);
Circle(750,650,35);FloodFill(751,651,clPurple);
Line(30,50,60,45);
Line(30,50,60,55);
Line(60,55,65,85);
Line(65,85,75,55);
Line(105,50,75,55);
Line(105,50,75,45);
Line(60,45,65,15);
Line(65,15,75,45); FloodFill(66,47,clFuchsia);

FloodFill(1,1,clNavy);
FloodFill(190,690,clNavy);
end.
а можно заставить это двигаться?
ну и ещё какой-нить корабль чтоб летел
Ответы:
free-lance.ru
> а можно заставить это двигаться?
Заводишь 2 переменные x,y: integer;
далее в каждом операторе дописываешь x+, y+, например


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.