Анимация в Паскаль

Предпросмотр материала:

1/12

Описание презентации по отдельным слайдам:

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 класс. Формируется представление об использовании циклов, вспомогательных алгоритмов, функции выбора случайного числа. Уроки по теме дают возможность составить разговор о кодировании цвета. Учат ориентироваться в системе координат, использовать графические примитивы для создания несложных картинок с элементами анимаций. Рассмотренные в презентации примеры дают возможность для создания на их основе более сложных работ для творческих учащихся.

Анимация в Паскаль

Информатика

Презентации

PPTX

31.03.2014

8867

Информатика

Презентации

Файл будет скачан в формате:

PPTX

Автор материала

Ковалевич Ирина Львовна

На сайте: 11 лет
Всего просмотров: 8928
Подписчики: 0
Всего материалов: 3

8928
просмотров
3
материалов
0
подписчиков

Настоящий материал опубликован пользователем Ковалевич Ирина Львовна.
Инфоурок является информационным посредником. Всю ответственность за опубликованные материалы несут пользователи, загрузившие материал на сайт. Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете на материал.