PascalABC - использование растровых изображений (практическое занятие) - 11 класс

Раздел Информатика
Класс 11 класс
Тип Конспекты
Автор
Дата
Формат rar
Изображения Нет
For-Teacher.ru - все для учителя
Поделитесь с коллегами:

Головач Александр

Лицей №1 имени А.С. Пушкина

План-конспект урока по информатике (11 класс)

Тема: "Использование растровых изображений (практическое занятие)"

Цели:

  • Образовательные:

способствовать закреплению ЗУН, проконтролировать усвоение материала по данной теме;

  • Развивающие:

способствовать воспитывать у учащихся самостоятельность в работе, уважение друг к другу;

  • Воспитательные:

способствовать формированию умений анализировать, сравнивать, систематизировать и обобщать.

Структура урока:

Вид деятельности

Время (мин)

1

Организационный момент

1

2

Актуализация знаний

5

3

Задания на дом

2

4

Практическая работа

35

5

Подведение итогов

2


ХОД УРОКА

1. Организационный момент

Организую внимание учащихся, предлагаю сесть.

- Здравствуйте. Сегодня у нас на уроке практическая работа по использованию растровых изображений в Pascal ABC. Целью нашего занятия является закрепить знания по использованию растровых изображений в Pascal ABC.

2. Актуализация знаний

1) Дано изображение «теремок.png» размерам (20,10). Назначьте изображению переменную и выведите его в 2 раза большими размерами в левом верхнем углу.

pic:=LoadPicture('теремок.png'); DrawPicture(pic,0,0,40,20).

2) Выведенное изображение должно продержаться 100 мс.

Sleep(100).

3. Задания на дом

Ст.78, №3.

4. Практическая работа

№1 Составить программу, которая над любыми тремя куполами ставит воздушный шарик.

uses GraphABC;

var fon, sharik: integer;

begin

setWindowSize (800, 700);

fon:= LoadPicture ('москва.jpg');

sharik:= LoadPicture ('шарик.png');

SetPictureTransparent(sharik,true);

DrawPicture (fon,0,0);

DrawPicture(sharik,120,180, 50,50);

DrawPicture(sharik,255,20, 55,55);

DrawPicture(sharik,607,20, 55,55);

end.

№2 Написать программу, которая имитирует движение автомобиля и мотоцикла на встречу друг другу. На фоне должна быть картинка с изображением города. При движении транспорт уменьшается в размерах.

program Avto3;

uses GraphABC;

var fon, avto,moto,sol, x,y, w,h,x1,y1, w1,h1,x2,y2,w2,h2: integer;

begin

SetWindowSize(600,300);

fon:= LoadPicture('gorod.gif');

avto:= LoadPicture('avto.jpg');

moto:= LoadPicture('мото.jpg');

sol:= LoadPicture('человек.png');

SetPictureTransparent(avto,true);

SetPictureTransparent(moto,true);

SetPictureTransparent(sol,true);

x:=10; y:=170; w:=240; h:=100;

x1:=400; y1:=170; w1:=240; h1:=100;

x2:=200; y2:=150; w2:=50; h2:=50;

while x<400 do

begin

ClearWindow;

DrawPicture(fon,0,0);

DrawPicture(avto,x,y,w,h);

DrawPicture(moto,x1,y1,w1,h1);

x:=x+10; w:=w-2; h:=h-1; x1:=x1-10; w1:=w1-2; h1:=h1-1;

sleep(10);

end;

end.

5. Подведение итогов

Какие сложности возникли при выполнении задания?

2


© 2010-2022