Рабочие листы
к вашим урокам
Скачать
1 слайд
АНИМАЦИИ
2 слайд
Хаотичное появление
объектов на экране
3 слайд
Рисуем случайные окружности
Пока не будет нажата любая клавиша циклически повторяются команды цикла:
Задается цвет кисти через функции RGB(), RANDOM()
Рисуется окружность с центром в случайной точке экрана, со случайно выбранным радиусом. (также используется функция RANDOM())
4 слайд
Program Circles;
Uses GraphABC, CRT;
var r : integer;
begin
SetWindowSize(500,500);
repeat
SetPenColor(random($FFFFFF));
circle(random(500),random(500),random(10));
sleep(10);
until keypressed;
End.
Мыльные пузыри
5 слайд
Program wind;
Uses GraphABC;
var x1,y1 : integer;
begin
SetWindowSize(500,500);
repeat SetBrushColor(rgb(random(255),random(255),random(255)));
x1:=random(500);
y1:=random(500) ;
rectangle(x1,y1,x1+40,y1+40);
sleep(10);
until keypressed;
end.
Огни большого города
6 слайд
Задание для самостоятельной работы
Создайте программу «цветной дождь»
(заполнение экрана наклонными отрезками)
Измените направление наклона отрезков
7 слайд
Создание иллюзии
движения объекта
8 слайд
Алгоритм
Рисуем фигуру на экране;
Задерживаем ее на экране на несколько миллисекунд;
Стираем фигуру (рисуем цветом фона)
Изменяем координаты, задающие местоположение фигуры.
9 слайд
Рисуем фигуру на экране;
Задерживаем ее на экране на несколько миллисекунд;
Стираем фигуру (рисуем цветом фона)
Изменяем координаты, задающие местоположение фигуры.
Задать начальные и конечные значения координат
10 слайд
Program anim;
Uses GraphABC;
Procedure SHAR(x1,y1,r:integer);
// Процедура рисует окружность
begin
circle(x1,y1,r);
end;
Var i: integer;
11 слайд
// Главная программа
begin
SetWindowSize(500,500);
For i:=1 to 500 do begin
setpencolor(clred);
Shar(i,250,30);
sleep(20);
setpencolor(clwhite);
Shar(i,250,30);;
end;
end.
12 слайд
Чтобы окружность передвигалась с права налево;
Чтобы окружность падала с верху вниз;
Чтобы окружность передвигалась по диагонали окна;
Чтобы двигался сложный объект:
Задание: измените программу так
Рабочие листы
к вашим урокам
Скачать
Презентация к урокам по созданию анимаций в PascalABC. Рассматриваются примеры с хаотичным появлением объектов на экране и движение объектов по экрану, Информатика 7- 8 класс. Формируется представление об использовании циклов, вспомогательных алгоритмов, функции выбора случайного числа. Уроки по теме дают возможность составить разговор о кодировании цвета. Учат ориентироваться в системе координат, использовать графические примитивы для создания несложных картинок с элементами анимаций. Рассмотренные в презентации примеры дают возможность для создания на их основе более сложных работ для творческих учащихся.
6 665 003 материала в базе
Настоящий материал опубликован пользователем Ковалевич Ирина Львовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
500/1000 ч.
Курс повышения квалификации
36 ч. — 144 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.