- Преподавателю
- Информатика
- PascalABC - использование растровых изображений (практическое занятие) - 11 класс
PascalABC - использование растровых изображений (практическое занятие) - 11 класс
Раздел | Информатика |
Класс | 11 класс |
Тип | Конспекты |
Автор | Головач А.Г. |
Дата | 23.10.2015 |
Формат | rar |
Изображения | Нет |
Головач Александр
Лицей №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