1592582
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 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...
Чтобы окружность передвигалась с права налево; Чтобы окружность падала с верх...
Labirint.ru - ваш проводник по лабиринту книг

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

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 слайд Чтобы окружность передвигалась с права налево; Чтобы окружность падала с верх
Описание слайда:

Чтобы окружность передвигалась с права налево; Чтобы окружность падала с верху вниз; Чтобы окружность передвигалась по диагонали окна; Чтобы двигался сложный объект: Задание: измените программу так

Курс профессиональной переподготовки
Учитель информатики
Labirint.ru - ваш проводник по лабиринту книг
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Краткое описание документа:
Презентация к урокам по созданию анимаций в PascalABC. Рассматриваются примеры с хаотичным появлением объектов на экране и движение объектов по экрану, Информатика 7- 8 класс.  Формируется представление об использовании циклов, вспомогательных алгоритмов, функции выбора случайного числа.  Уроки по теме дают возможность составить разговор о кодировании цвета. Учат ориентироваться в системе координат, использовать графические примитивы для создания несложных картинок с элементами анимаций. Рассмотренные в презентации примеры дают возможность для создания на их основе более сложных работ для творческих учащихся.
Общая информация
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону N273-ФЗ «Об образовании в Российской Федерации» педагогическая деятельность требует от педагога наличия системы специальных знаний в области обучения и воспитания детей с ОВЗ. Поэтому для всех педагогов является актуальным повышение квалификации по этому направлению!

Дистанционный курс «Обучающиеся с ОВЗ: Особенности организации учебной деятельности в соответствии с ФГОС» от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (72 часа).

Подать заявку на курс

Вам будут интересны эти курсы:

Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышения квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.
Labirint.ru - ваш проводник по лабиринту книг
Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.