Выбранный для просмотра документ Проект Анимация.docx
Проект «Анимация» на языке программирования Паскаль АВС
Задание: Разработать проект, в котором реализуется «движение Зайчика».
Краткая справка. Для создания иллюзии появления Зайчика два изображения (фоновый прямоугольник и Зайчик) с определённой частотой выводятся в поле рисования. Для создания иллюзии движения при каждом появлении объекта координаты изображения изменяются на определённую величину.
Порядок работы
1. Запустить язык программирования Паскаль АВС.
2. Запустить специальный модуль GraphABC командой uses GraphABC;
3. Используя следующие функции и процедуры нарисовать объект «Зайчик»:
ï Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
ï FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y).
4. Закрасить по своему усмотрению используя цвета в PascalABC:
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный
5. Запустить проект «Зайчик», при необходимость произвести отладку программы. Пример:
Uses
GraphABC;
Begin
Rectangle(60,70,120,150);
Rectangle(60,40,120,80);
Rectangle(60,10,80,40);
Rectangle(100,10,120,40);
Rectangle(40,80,60,120);
Rectangle(120,80,140,120);
Rectangle(40,150,80,170);
Rectangle(100,150,140,170);
Rectangle(70,50,80,60);
Rectangle(100,50,110,60);
Rectangle(85,55,95,65);
FloodFill(80,100,clGreen);
FloodFill(86,56,clRed);
FloodFill(71,51,clAqua);
End.
6. Нарисуйте фоновый прямоугольник поверх объекта «Зайчик», спрячьте «Зайчика».
7. Организуйте цикл изменения координаты Х и увеличьте все х координаты на величину управляющую циклом, как объекта «Зайчик» так и объекта фоновый прямоугольник. Откорректируйте шаг увеличения управляющей цикла по своему усмотрению.
8. Задайте пустой цикл для частоты появления попеременно двух объектов.
9. Запустить проект.
Примерный результат проекта
Uses GraphABC;
Var i,r,k ,j:integer;
Begin
For k:= 0 to 9 do
begin
For i:=0 to 1000 do {цикл обеспечивающий движение по оси ОХ}
begin
FloodFill(1,1,clBlack); {заливка экрана чёрным цветом}
Rectangle(60+i,70,120+i,150);
Rectangle(60+i,40,120+i,80);
Rectangle(60+i,10,80+i,40);
Rectangle(100+i,10,120+i,40);
Rectangle(40+i,80,60+i,120);
Rectangle(120+i,80,140+i,120);
Rectangle(40+i,150,80+i,170);
Rectangle(100+i,150,140+i,170);
Rectangle(70+i,50,80+i,60);
Rectangle(100+i,50,110+i,60);
Rectangle(85+i,55,95+i,65);
FloodFill(80+i,100,clGreen);
FloodFill(86+i,56,clRed);
FloodFill(71+i,51,clAqua);
end;
for j:=0 to 1000000000 do r:=r+1; {регулировка частоты появления объектов }
SetPenColor(clWhite); {устанавливает цвет пера, задаваемый параметром color}
Rectangle (55+i,68,122+i,152);
i:=i+100;
end;
End.
Дополнительное задание
Изобразите «Кораблик» и заставьте его двигаться по бескрайнему морю
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
Проект "Анимация" на языке программирования Паскаль АВС используется для наглядного представления и более глубокого понимания одного из языков программирования в 10 классе. Позволяет формировать пространственное воображение на плоскости, ориентироваться по декартовой координате и развивать творческие способности, навыки самостоятельной работы в малой группе.
6 653 902 материала в базе
Настоящий материал опубликован пользователем Евтеева Ольга Сергеевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Мини-курс
3 ч.
Мини-курс
5 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.