Графика на Pascal. Просмотр готовых программ.

Конспект урока на тему
«Графика на языке программирования Pascal»
«Просмотр готовых программ»

Тип урока: урок – знакомство с новым материалом.

Цели урока:

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

1. раскрыть содержание понятия графика на языке программирования TP;

2. освоить основные графические процедуры и функции;

3. обеспечить овладение учащихся приемами составления графических программ.

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

1. умения анализировать, сравнивать, систематизировать и обобщать;

2. интерес к учению, стремление к расширению кругозора;

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

1. бережное отношение к имуществу, ВТ и дидактическому материалу;

2. дисциплинированность, любознательность.

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

Дидактические средства: Презентация, выполненная в программе Power Point; карточки с описанием некоторых процедур и функций; файлы с готовыми текстами программ на языке Pascal; компьютер с программой Pascal ABC.

Ход урока

1. Приветствие.

2. Проверка домашнего задания ().

3. Объяснение нового материала: - В современном мире встречается очень много графических элементов. Что же такое графика? (ученики высказывают свои мнения). - Мы будем сегодня рассматривать графику на языке программирования, который мы изучаем – это Pascal. Прежде, чем приступить к созданию графических программ в среде Pascal ABC, необходимо ознакомиться с богатейшими графическими возможностями этого языка, сосредоточенными в стандартных модулях (библиотеках) GRAPH и CRT (название CRT происходит от Cathode-Ray Tube — электронно-лучевая трубка). Эти модули содержат описания стандартных констант, процедур и функций, графическом режиме. При работе в графическом режиме весь экран разбивается на отдельные точки — "пикселы". Положение пиксела также задается двумя координатами — X и Y. Координата X увеличивается слева направо, а координата Y — сверху вниз. Подключение модулей CRT и GRAPH к программе осуществляется с помощью ключевого слова Uses (англ.uses — использует) Uses Crt, Graph. Теперь рассмотрим некоторые графические процедуры  и функции. У вас на столе лежат такие же таблички с процедурами.
   - Скажите, для того, чтобы нарисовать круг, какую необходимо использовать процедуру? (ученики отвечают) - Для того, чтобы графические объекты выглядели более красиво и привлекали внимание, используют цвета и штриховку. Но для начала я хочу показать, какие еще объекты можно создавать с помощью языка программирования Pascal. (смотрим слайды).

4. Итог урока: Сегодня мы познакомились с некоторыми графическими функциями и процедурами, попытались построить простейший графический объект.

5. Домашнее задание (творческое): Составить программу, рисующую снеговика.

Приложение 1

Описание некоторых графических процедур и функций

Arc(X, Y: Integer; U1, U2, R: Word)   Строит дугу окружности X, Y — координаты центра дуги, U1 — угол до начальной точки дуги, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо, U2 — угол до конечной точки дуги, отсчитываемый так же, как U1, R — радиус дуги.
Bar(X1, Y1, X2, Y2: Integer)   Закрашенный прямоугольник.
Circle(X, Y: Integer; R: Word)   Рисует текущим цветом окружность радиуса R c центром в точке (X,Y).
Ellipse(X, Y: Integer; U1, U2, XR, YR: Word)   Рисует дугу эллипса текущим цветом; X, Y — координаты центра эллипса; U1, U2 — углы до начальной и конечной точек дуги эллипса (см. процедуру Arc); XR, YR — горизонтальная и вертикальная полуоси эллипса.
FillEllipse(X, Y: Integer; XR, YR: Word)   Рисует заштрихованный эллипс, используя X,Y как центр и XR,YR как горизонтальную и вертикальную полуоси эллипса.
FillPoly(N: Word; Var PolyPoints)   Рисует и штрихует многоугольник, содержащий N вершин с координатами в PolyPoints.
Line(X1, Y1, X2, Y2: Integer)   Рисует линию от точки X1, Y1 до точки X2,Y2.
LineTo(X, Y: Integer)   Рисует линию от текущего указателя к точке X,Y.
PieSlice(X, Y: Integer; U1, U2, Radius: Word)   Строит сектор круга, закрашенный текущей штриховкой и цветом заполнения. X, Y — координаты центра сектора круга; U1 и U2 — начальный и конечный углы сектора, отсчитываемые против часовой стрелки от горизонтальной оси, направленной вправо; Radius — радиус сектора.
PutPixel(X, Y: Integer; Color: Word)   Выводит точку цветом Color с координатами X, Y.
Rectangle(X1, Y1, X2, Y2)   Рисует контур прямоугольника, используя текущий цвет и тип линии. X1, Y1 — координаты левого верхнего угла прямоугольника, X2, Y2 — координаты правого нижнего угла прямоугольника.
Sector(X, Y: Integer; U1, U2, XR, YR: Word)   Рисует и штрихует сектор эллипса радиусами XR, YR с центром в X, Y от начального угла U1 к конечному углу U2.
SetBkColor(Соlor: Word)   Устанавливает цвет фона.
SetFillStyle(Pattern, Color: Word)   Устанавливает образец штриховки и цвет.
SetLineStyle(LineStile, Pattern, Thickness: Word)   Устанавливает толщину и стиль линии.
SetViewPort(X1, Y1, X2, Y2: Integer; ClipOn: Boolean)   Устанавливает прямоугольное окно на графическом экране. Параметр ClipOn определяет "отсечку" элементов изображения, не умещающихся в окне.

Константы цвета

Константы шаблона штриховки