647555
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
Добавить материал и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Манифест «Инфоурок»
ИнфоурокИнформатикаПрезентацииАнимация в Паскаль

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

библиотека
материалов
АНИМАЦИИ
Рисуем случайные окружности Пока не будет нажата любая клавиша циклически пов...
Program Circles; Uses GraphABC, CRT; var r : integer; begin SetWindowSize(500...
Program wind; Uses GraphABC; var x1,y1 : integer; begin SetWindowSize(500,500...
Задание для самостоятельной работы Создайте программу «цветной дождь» (заполн...
Алгоритм Рисуем фигуру на экране; Задерживаем ее на экране на несколько милли...
Рисуем фигуру на экране; Задерживаем ее на экране на несколько миллисекунд; С...
Program anim; Uses GraphABC; Procedure SHAR(x1,y1,r:integer); // Процедура ри...
// Главная программа begin SetWindowSize(500,500); For i:=1 to 500 do begin s...
Чтобы окружность передвигалась с права налево; Чтобы окружность падала с верх...

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

1 слайд АНИМАЦИИ
Описание слайда:

АНИМАЦИИ

2 слайд
Описание слайда:

3 слайд Рисуем случайные окружности Пока не будет нажата любая клавиша циклически пов
Описание слайда:

Рисуем случайные окружности Пока не будет нажата любая клавиша циклически повторяются команды цикла: Задается цвет кисти через функции RGB(), RANDOM() Рисуется окружность с центром в случайной точке экрана, со случайно выбранным радиусом. (также используется функция RANDOM())

4 слайд Program Circles; Uses GraphABC, CRT; var r : integer; begin SetWindowSize(500
Описание слайда:

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
Описание слайда:

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); // Процедура ри
Описание слайда:

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 s
Описание слайда:

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

Опубликуйте 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Добавить материал
Сертификат о создании персонального учительского сайта

Опубликуйте 5 материалов, чтобы БЕСПЛАТНО получить сертификат о создании сайта

Добавить материал
Грамота за высокий уровень сформированности информационно-коммуникационной компетентности

Опубликуйте 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Добавить материал
Свидетельство за транслирование результатов своей профессиональной деятельности

Опубликуйте 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Добавить материал
Грамота за личный вклад в повышение качества образования

Опубликуйте 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Добавить материал
Почётная грамота за высокий уровень профессионализма

Опубликуйте 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Добавить материал
Золотая грамота за современный подход к преподаванию и повышение качества педагогического труда

Опубликуйте 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную золотую грамоту

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