Тема: Графика в Pascal

Разработала: Польшакова Анна Александровна

Предмет: Информатика

Класс:11

Автор УМК:К.Ю. Поляков

Тип урока: урок развивающего контроля

Вид урока: проект.

Цели урока:

Образовательная: расширить понятие графики, понимание возможностей PascalABC в создании графических объектов.

Развивающая: развить навыки создания графических объектов в PascalABC; освоить основные графические процедуры и функции.

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

Задача урока: при помощи графических возможностей PascalABC создать сюжетный рисунок.

Планируемые результаты:

Предметные:умение создавать графические объекты используя графические возможностиPascalABC.

Метапредметные:использование графических процедур и функций PascalABC в других предметных областях.

Личностные:способствовать связи знаний об основных графических возможностях PascalABC с собственным жизненным опытом;способность применять теоретические знания для решения практических задач.

Формы работы учащихся: фронтальная, групповая.

Методы: наглядный, словесный, практический.

Оборудование: Учебник «Информатика» 11 класс часть 2 автор К.Ю. Поляков, персональный компьютер, проектор,PascalABC, раздаточный материал, листы самооценки.

Приложение 1

Приложение 2

Графические примитивы

procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color.

function GetPixel(x,y): integer; -возвращает текущее значение цвета для пиксела с координатами (x,y).

procedure MoveTo(x,y: integer); - передвигает невидимое перо к точке с координатами (x,y); эта функция работает в паре с функцией LineTo(x,y).

procedure LineTo(x,y: integer); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y).

procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

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

procedure Ellipse(x1,y1,x2,y2: integer); - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

procedure RoundRect(x1,y1,x2,y2,w,h: integer); - рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев.

procedure Arc(x,y,r,a1,a2: integer); - рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

procedure Pie(x,y,r,a1,a2: integer); - рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc).

procedure Chord(x,y,r,a1,a2: integer); - рисует фигуру, ограниченную дугой окружности и отрезком, соединяющим ее концы (параметры процедуры имеют тот же смысл, что и в процедуре Arc).

procedure TextOut(x,y: integer; s: string); - выводитстроку s впозицию(x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст из строки s).

procedure FloodFill(x,y,color: integer); - заливает область одного цвета цветом color, начиная с точки (x,y).

procedure FillRect(x1,y1,x2,y2: integer); - заливает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти.

procedure Polygon(var a; n: integer); строит ломаную по n точкам, координаты которых заданы в массиве a элементов типа Point.

procedure Polyline(var a; n: integer); -строит замкнутую ломаную по n точкам, координаты которых заданы в массиве a элементов типа Point.

Цветовые константы и функции для работы с цветом

Тип ColorType, описывающий цвет, определен следующим образом:

type ColorType=integer; - стандартные цвета задаются символическими константами:

Действия с пером

function PenX: integer; function PenY: integer; - возвращаюттекущиекоординатыпера.

procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.

function PenColor: integer; - возвращает текущий цвет пера.

procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.

function PenWidth: integer; - возвращает текущую ширину пера.

procedure SetPenStyle(ps: integer); - устанавливает стиль пера, задаваемый параметром ps.

procedure SetPenMode(m: integer); - устанавливает режим пера, задаваемый параметром m.

function PenMode: integer; - возвращает текущий режим пера. Режим пера определяет, как цвет пера взаимодействует с цветом поверхности.

function PenStyle: integer; - возвращает текущий стиль пера.

Стили пера задаются следующими именованными константами:

Режимы пера задаются следующими именованными константами:

pmCopy – обычный режим; при рисовании цвет поверхности заменяется цветом пера;

pmNot – режим инвертирования; при рисовании цвет поверхности инвертируется (становится негативным), а цвет пера при этом игнорируется.

Действия с кистью

procedure SetBrushColor(color: integer); - устанавливает цвет кисти, задаваемый параметром color.

function BrushColor: integer; - возвращает текущий цвет кисти.

procedure SetBrushPicture(fname: string); - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется.

procedure ClearBrushPicture; - очищает рисунок-образец, выбранный для кисти.

procedure SetBrushStyle(bs: integer); - устанавливает стиль кисти, задаваемый параметром bs.

function BrushStyle: integer; - возвращает текущий стиль кисти.

Действия со шрифтом

procedure SetFontColor(color: integer); - устанавливаетцветшрифта.

function FontColor: integer; - возвращает  текущийцветшрифта.

procedure SetFontSize(sz: integer); - устанавливает  размершрифтавпунктах.

function FontSize: integer; - возвращает  текущий размер шрифта в пунктах.

procedure SetFontName(name: string); - устанавливает  наименование шрифта.

function FontName: string; - возвращает  текущее наименование шрифта.

По умолчанию установлен шрифт, имеющий наименование MS SansSerif.
Наиболее распространенные шрифты – это Times, Arial и CourierNew.
Наименование шрифта можно набирать без учета регистра.

procedure SetFontStyle(fs: integer); - устанавливает  стиль шрифта.

function FontStyle: integer; - возвращает  текущий стиль шрифта.

Стили шрифта задаются следующими именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.

function TextWidth(s: string): integer; - возвращает ширину строки s в пикселях при текущих настройках шрифта.

function TextHeight(s: string): integer; - возвращает высоту строки s в пикселях при текущих настройках шрифта.

Действия с графическим окном

procedure ClearWindow; - очищает графическое окно белым цветом.

procedure ClearWindow(c:ColorType); - очищает графическое окно цветом c.

function WindowWidth: integer; - возвращает ширину графического окна.

function WindowHeight: integer; - возвращает высоту графического окна.

function WindowLeft: integer; - возвращает отступ графического окна от левого края экрана.

function WindowTop: integer; - возвращает отступ графического окна от верхнего края экрана.

function WindowCaption: string; - возвращает заголовок графического окна.

procedure SetWindowWidth(w: integer); - устанавливает ширину графического окна.

procedure SetWindowHeight(h: integer); - устанавливает высоту графического окна.

procedure SetWindowLeft(l: integer); - устанавливает отступ графического окна от левого края экрана.

procedure SetWindowTop(t: integer); - устанавливает отступ графического окна от верхнего края экрана.

procedure SetWindowSize(w,h: integer); - устанавливает ширину и высоту графического окна.

procedure SetWindowPos(l,t: integer); - устанавливает отступ графического окна от левого и верхнего края экрана.

procedure SetWindowCaption(s: string); - устанавливает заголовок графического окна.

procedure SetWindowTitle(s: string); - устанавливает заголовок графического окна. Синоним SetWindowCaption.

procedure SaveWindow(fname: string); - сохраняет содержимое графического окна в файл с именем fname.

procedure LoadWindow(fname: string); - выводит в графическое окно рисунок из файла с именем fname. Файл ищется вначале в текущем каталоге, а затем в каталоге PascalABC\Media\Images.

procedure FillWindow(fname: string); - заполняет графическое окно мозаикой из рисунка, содержащегося в файле с именем fname.

procedure FillWindow(n: integer); - заполняет графическое окно мозаикой из рисунка с описателем n.

procedure CloseWindow; - закрывает графическое окно.

function ScreenWidth: integer; - возвращаетширинуэкрана.

function ScreenHeight: integer; - возвращаетвысотуэкрана.

procedure CenterWindow; - центрирует графическое окно по центру экрана.

procedure MaximizeWindow; - максимизирует графическое окно на экране.

procedure NormalizeWindow; - восстанавливает положение графического окна на экране.

Все размеры устанавливаются и возвращаются в пикселах.

Задание режимов вывода

procedure SetDrawingSurface(n: integer); - устанавливает в качестве канвы для рисования рисунок с описателем n. В результате весь графический вывод осуществляется не на экран, а на рисунок; настройки кисти, пера и шрифта также осуществляются для рисунка.

procedure SetDrawingSurface(p:Picture); - устанавливает в качестве канвы для рисования рисунок с описателем n. В результате весь графический вывод осуществляется не на экран, а на рисунок; настройки кисти, пера и шрифта также осуществляются для рисунка.

procedure RestoreDrawingSurface; - устанавливает в качестве канвы для рисования графическое окно.

procedure Redraw; - осуществляет перерисовку окна вывода при заблокированном выводе в графическое окно.

procedure LockDrawing; - блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном буфере. Для перерисовки графического окна требуется вызвать процедуру Redraw. Если графический вывод перенаправлен в рисунок вызовом процедуры SetDrawingSurface, то не оказывает никакого воздействия на вывод.

procedure UnlockDrawing; - снимает блокировку вывода в графическое окно.

procedure LockScreenBuffer; - блокирует вывод во внеэкранный буфер графического окна. После вызова этой процедуры рисование незначительно ускоряется, однако, изображение графического окна перестает восстанавливаться.

procedure UnlockScreenBuffer; - снимает блокировку вывода во внеэкранный буфер графического окна.

function DrawingIsLocked: boolean; - возвращает True, если вывод в графическое окно заблокирован, и False в противном случае.

Приложение 3

Пример 1

Program Ricynki;

uses graphABC;

begin

setwindowsize(640,480);

setwindowtitle('Picture');

setbrushcolor(clgreen);

rectangle(0,350,640,480);

setbrushcolor(clSkyblue);

rectangle(0,0,640,350);

setbrushcolor(clbrown);

rectangle(70,275,215,415);

line(150,180,70,275);

line(70,275,215,275);

line(215,275,150,180);

floodfill(150,250,clbrown); {заливка, точка, цвет}

circle(150,250,18);

setbrushcolor(clblue); {цветфона}

floodfill(150,250,clblue); {заливка, голубымцветом}

setbrushcolor(clblue);

rectangle(75,315,120,375);

setbrushcolor(clsilver);

rectangle(150,315,200,415);

setpencolor(clyellow);

setbrushcolor(clyellow);

line(25,25,150,75);

line(25,25,145,80);

line(25,25,140,85);

line(25,25,130,95);

line(25,25,125,100);

line(25,25,115,110);

line(25,25,110,115);

line(25,25,100,125);

Пример 2

Program Car;

Uses GraphABC;

begin

setbrushcolor(clSkyblue);

rectangle(0,0,640,250);

setbrushcolor(clBrown);

rectangle(0,250,640,480);

SetBrushColor(clBlack); //цвет внешнего колеса

Circle(161, 261,44);//внешнее левое колесо

Circle(360, 258,45); //внешнее правое колесо

SetBrushColor(clwhite);

Circle(160, 261,27); //внутреннее левое колесо

Circle(360, 259,28); //внутреннее левое колесо

Rectangle(100, 170, 296, 216); // Прицеп

Rectangle(152, 170, 242, 50); // Шкаф в прицепе

Line(197, 50, 197, 170); // Линия разделяющие дверцы шкафа на прицепе

Line(296, 216, 314, 216); // Линия соединяющая кабину с прицепом

Rectangle(313, 216, 433, 136); //Кабина

Rectangle(313, 136, 379, 69); // окно

Line(346, 69, 346, 136); // Линия разделяющая окно в кабине

Line(379, 69, 432, 136);  //лобовое окно

Line(420, 166, 359, 166); // Линия около фонаря

ellipse(183,100,193,120); //ручки дверцы шкафа

ellipse(203,100,213,120);

ellipse(400,170,430,190); //ручка дверцы грузовика

End.