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

План-конспект урока по информатике (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. Подведение итогов

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