Урок по информатике « Модуль «GraphABC». 7 класс

Урок___22___                Класс__7А__                               Дата__10.02.2017 г.__ План урока Тема: « Модуль «GraphABC» Цели:  познакомить  с возможностями модуля GraphABC;  научить  использовать  константы, типы, процедуры, функции и классы для  рисования в графическом окне.  развитие практических навыков работы за компьютером;  развитие логического мышления, программирования;  воспитание интереса к программированию.                                              Ход урока: 1. Оргмомент 2. Проверка знаний учащихся (опрос) 3. Объяснение нового материала: Модуль GraphABC содержит константы, типы, процедуры, функции и классы для  рисования в графическом окне. Они подразделяются на следующие группы:   Графические примитивы;  Действия с цветом;  Действия с пером;  Действия с кистью;  Действия со шрифтом;  Действия с рисунками: описатели;  Действия с рисунками: класс Picture;  Действия с графическим окном;  Задание режимов вывода. На сегодняшнем уроке мы рассмотрим  графические примитивы: 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. Все эти процедуры можно посмотреть  в электронном учебнике  среды программирования Pascal ABC. Экран монитора представляет собой координатные оси x и y, которые расположены   следующим образом                                                                                                       x              0 < X <  640              0 < Y <  420 y Модуль GraphABC содержит константы и функции для работы с цветами. Тип ColorType, описывающий  цвет, определен следующим образом: type ColorType=integer; Стандартные цвета задаются символическими константами: clBlack – черный  clPurple – фиолетовый  clWhite – белый  clMaroon – темно­красный  clRed – красный  clNavy – темно­синий  clGreen – зеленый  clBrown – коричневый  clBlue – синий  clSkyBlue – голубой  clYellow – желтый  clCream – кремовый     clAqua – бирюзовый  clOlive – оливковый  clFuchsia – сиреневый  clTeal – сине­зеленый  clGray – темно­серый  clLime – ярко­зеленый  clMoneyGreen – цвет зеленых денег  clLtGray – светло­серый  clDkGray – темно­серый clMedGray – серый clSilver – серебряный Для работы с цветами используются следующие функции.      function RGB(r,g,b: integer): ColorType; Возвращает целое значение, являющееся кодом цвета, который содержит красную, зеленую и синюю  составляющие с интенсивностями r, g и b соответственно (r, g и b – целые в диапазоне от 0 до 255,  причем, 0 соответствует минимальной интенсивности, 255 – максимальной).  function GetRed(color: ColorType): integer; Выделяет красную составляющую из цвета color (целое в диапазоне от 0 до 255);  function GetGreen(color: ColorType): integer; Выделяет зеленую составляющую из цвета color (целое в диапазоне от 0 до 255); function GetBlue(color: ColorType): integer; Выделяет синюю составляющую из цвета color (целое в диапазоне от 0 до 255 4. Работа за компьютером: Составить  программу, которая изображает на экране монитора все цвета,  используемые в Паскале. program cveta; uses GraphABC; const n=22; var   x,y,y1,w,ww,i: integer;   Colors: array [1..n] of integer; begin SetWindowCaption('Стандартные цвета'); - Устанавливает заголовок графического  окна.   SetPenStyle(psClear); - Устанавливает стиль пера, задаваемый параметром ps.   Colors[1]:=clWhite;   Colors[2]:=clLightGray;   Colors[3]:=clGray;   Colors[4]:=clDarkGray;   Colors[5]:=clBlack;   Colors[6]:=clRed;   Colors[7]:=clGreen;   Colors[8]:=clBlue;   Colors[9]:=clYellow;   Colors[10]:=clAqua;   Colors[11]:=clFuchsia;   Colors[12]:=clPurple;   Colors[13]:=clBrown;   Colors[14]:=clMaroon;   Colors[15]:=clMoneyGreen;   Colors[16]:=clSkyBlue;   Colors[17]:=clCream;   Colors[18]:=clOlive;   Colors[19]:=clTeal;   Colors[20]:=clLime;   Colors[21]:=clSilver;   Colors[22]:=clNavy; x:=10; y:=20;   y1:=400;   w:=30;   ww:=9; SetWindowSize(x+n*(w+ww),y1+y); - Устанавливает ширину и высоту графического  окна.   for i:=1 to n do   begin SetBrushColor(Colors[i]); - Устанавливает цвет кисти, задаваемый параметром color.      Rectangle(x,y,x+w,y1); - Рисует прямоугольник, заданный координатами  противоположных вершин (x1,y1) и (x2,y2).     x:=x+w+ww;   end; end.