Графика на языке программирования Pascal

ПЛАН-КОНСПЕКТ

учебного занятия кружка «Компьютер и информационные технологии»

Тема учебного занятия: «Графика на языке программирования Pascal»

Цель учебного занятия: научиться создавать рисунки с помощью операторов графики языка программирования Pascal.

Задачи учебного занятия:

Образовательная: познакомить обучающихся с графическими возможностями языка программирования Pascal. Сформировать навыки и умения составлять программы с использованием графики. Научиться создавать рисунки с использованием операторов графики языка программирования Pascal.

Развивающая: развитие навыков и умений работы с графикой в Pascal.

Воспитательная: воспитание информационной культуры учащихся, внимательности, аккуратности, дисциплинированности, усидчивости.

Методы работы: беседа, практическая работа на ПК.

Формы работы: индивидуальная.

Оборудование: персональные компьютеры, язык программирования Pascal, доска, мел.

Дидактические материалы: карточки с заданиями.

План.

1. Организационный этап.

2. Постановка цели и задач учебного занятия. Мотивация учебной деятельности обучающихся.

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

4. Первичное усвоение новых знаний.

5. Первичная проверка понимания.

6. Первичное закрепление.

7. Рефлексия (подведение итогов учебного занятия).

Ход учебного занятия.

1. Организационный этап.

Приветствие, проверка присутствующих.

1. Постановка цели и задач учебного занятия. Мотивация учебной деятельности обучающихся.

На доске представлены слово «Pascal» и изображения (Приложение 1).

Обучающиеся самостоятельно называют тему учебного занятия, цели и задачи. На доске записываются цели и задачи.

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

Обучающиеся должны найти пару. Выходит обучающийся и находит пару из следующего списка:

Повторяем операторы графики, а также как выглядят фигуры, построенные с помощью этих операторов.

1. Первичное усвоение новых знаний.

Когда вы решали задачи на линейный алгоритм, условный оператор и т.д., вы подключали текстовый модуль Uses Crt. Для работы в графическом режиме необходимо подключение модуля Graph.

Вспомнить систему координат. Изображение, которое мы видим на экране компьютера, представлено в виде пикселей. Графический экран Pasсal (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали.

SetPixel(x,y,color) - Закрашивает цветом color точку с координатами (x, y);

Line(x1,y1,x2,y2) - Рисует отрезок из точки с координатами (x1,y1) в точку с координатами (x2,y2);

Arc(x1,y1,α1, α2,r) - процедура строит дугу окружности с центром в заданной точке, где (x1,y1) – координаты центра окружности, α1 – начало дуги (в градусах), α2 – конец дуги (в градусах), r – радиус окружности;

Rectangle(x1,y1.x2,y2) - процедура рисует прямоугольник, где (x1,y1) – координаты начала диагонали прямоугольника, (x2,y2) – координаты конца диагонали прямоугольника;

Fillellipse(x1,y1,r_x,r_y) - процедура строит заполненный эллипс, где (x1,y1) – координаты центра эллипса, r_x – радиус по OX, r_y - радиус по OY;

Setlinestyle(,,) - процедура задаёт толщину и форму линии. Коды типов линии: 0 – сплошная, 1 - -пунктирная, 2 – штрих-пунктирная, 3 – штриховая, 4 – заданная пользователем, 1 – тонкая, 3 – толстая;

Putpixel(x1,x2,№ _цвета) - процедура высвечивает пиксель (точку) с заданными координатами, где (x1,y1) – координаты точки, № цвета – цвет, которым высвечивается точка;

Bar (x1,y1,x2,y2) - процедура строит прямоугольник, используя текущий цвет и способ заполнения, где (x1,y1) – координаты начала диагонали прямоугольника, (x2,y2) – координаты конца диагонали прямоугольника;

Setfillstyle(Pattern: word,Color:word) - процедура устанавливает стандартный орнамент и цвет для заполнения ими фигур. Коды орнамента заполнения для Setlinestyle: 0 – заполнение цветом фона, 1 – однородное заполнение цветом, 2 – заполнение ------, 3 – заполнение //////, 4 – заполнение ///// тонкими линиями, 5 – заполнение \\\\\ тонкими линиями, 6 – заполнение //////, 7 – заполнение клеткой, 8 – заполнение косой клеткой, 9 – заполнение частой клеткой, 10 – заполнение в крупный горошек, 11 – заполнение в мелкий горошек, 12 – заполнение определяемое пользователем;

Ellipse(x,y,н.уг.,к.уг., r_x,r_y) - процедура рисует дугу эллипса с центром в заданной точке, где x и y – координаты центра эллипса, н.уг. – начало дуги в градусах, к.уг. – конец дуги в градусах, r_x – радиус по OX, r_y - радиус по OY;

Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r.

TextOut (x, y, text) – Выводит Text на экран. Начало текста в точке с координатами (x, y).

FloodFill(x,y,color) – Заливает область одного цвета - цветом color, начиная с точки (x,y).

5.Первичная проверка понимания и 6. Первичное закрепление.

Решим задачу.

Создать изображение (Приложение 1)

Этап 1. Постановка задачи (1 балл)

Что дано?

Изображение.

Что требуется?

Создать данное изображение с помощью операторов графики языка программирования Pasсal.

Этап 2. Разработка математической модели (1 балл)

Этап 3. Разработка  алгоритма

Этап 4. Перевод алгоритма в программу (4 балла)

Program z21; {заголовок программы}

uses graph, crt; {подключение библиотек}

var a,b,i:integer; {описание переменных, которые используются в программе}

begin{начало программы}

a:=Detect; {автоматическое определение аппаратуры}

InitGraph(a,b,’C:\BP\BGI’); {переход в графический режим}

Setcolor(15); {определение цвета рисования линий}

Setfillstyle(1,0); {процедура которая определяет: 1 – однородное заполнение цветом, 0 – цвет фона чёрный}

Fillellipse(320,240,100,80); {овал лица}

Fillellipse(320,240,43,25); {нос}

Arc(300,210,350,225,20); {левый глаз}

Arc(345,210,310,190,20); {правый глаз}

Setfillstyle(1,3); { процедура которая определяет: 1 – однородное заполнение цветом, 3 – цвет фона голубой}

Fillellipse(300,208,12,10); {левый зрачок}

Fillellipse(345,208,12,10); {правый зрачок}

ellipse(320,200,220,320,85,80); {верхняя губа}

ellipse(320,170,215,325,80,140); {нижняя губа}

ellipse(293,182,32,105,20,40); {волосы на голове}

ellipse(335,182,75,145,20,40); { волосы на голове }

ellipse(320,182,87,148,7,45); { волосы на голове }

Setfillstyle(1,0); { процедура которая определяет: 1 – однородное заполнение цветом, 0 – цвет фона чёрный }

Fillellipse(203,215,20,25); {левое ухо}

Fillellipse(437,215,20,25); {правое ухо}

Setfillstyle(1,15); { процедура которая определяет: 1 – однородное заполнение цветом, 15 – цвет фона - белый}

Bar(300,280,320,292); {левый большой зуб}

Bar(325,280,343,289); {правый маленький зуб}

ellipse(325,255,132,165,30,40); {левая наклейка на носу}

ellipse(330,255,132,165,30,40); {левая наклейка на носу}

line(305,225,310,225); {левая наклейка на носу}

line(296,245,301,245); {левая наклейка на носу}

ellipse(307,262,80,115,40,30); {правая наклейка на носу}

ellipse(307,267,80,115,40,30); {правая наклейка на носу}

line(290,234,290,239); {правая наклейка на носу}

line(314,232,314,238); {правая наклейка на носу}

line(260,245,248,256); {левая часть улыбки}

line(380,245,392,256); {правая часть улыбки}

readkey; {возврат в программу при нажатии на любую клавишу}

end. {окончание программы}

7.Рефлексия (подведение итогов учебного занятия).

Закрепление изученного материала - демонстрация выполненных работ обучающихся.

Цель нашего учебного занятия выполнили?

Самостоятельно оцените себя согласно набранным баллам.

Приложение 1