Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Информатика / Презентации / Анимация в Паскаль
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

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

библиотека
материалов
АНИМАЦИИ
Рисуем случайные окружности Пока не будет нажата любая клавиша циклически пов...
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...
Чтобы окружность передвигалась с права налево; Чтобы окружность падала с верх...
12 1

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

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

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

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