Презентация по теме PascalABC графика для 7-9 класса, урок №1

Графический режим Учитель информатики ГБОУ школа №118 ЮЗАО Серогодская Н.И. Г.Москва 1

УРОК №1 2

Цели Обучающие: познакомить учащихся с программной средой Pascal ABC, со структурой  программы на языке Паскаль; сформировать у учащихся первичные знания по применению изученного  материала. Развивающие: учить анализировать, обобщать и систематизировать; обогащать словарный запас учащихся. Воспитательные: развивать информационную культуру учащихся, способность к самостоятельной и  коллективной деятельности, рефлексию. 3

ЗАДАЧИ  Учащиеся должны знать:  • основные команды и функции в среде GraphPascal ABC; • правила оформления и работы программы;   Учащиеся должны уметь:     • разрабатывать программы рисования графических примитивов; • производить необходимые действия с программой; • разрабатывать процедуры с параметрами и без них для рисования объектов; • разрабатывать программы на основе типовых конструкций алгоритма;  Дополнительно: решать более сложные графические задачи  .   4

Для работы в графическом режиме необходимо  подключение модуля GraphABC: Графический  экран  PasсalABC  содержит  640  точек по горизонтали и 400 точек по вертикали. 0 640 Обратите  внимание,  что  начало  отсчета  –  левый  верхний  угол  экрана, в отличие от  осей  координат  в  математике 0 0 4 5

УПРАВЛЕНИЕ ЭКРАНОМ SetWindowWidth(w)  ширину графического окна;  ­  устанавливает  SetWindowHeight(h)  ­ устанавливает  высоту графического окна;  6

ClearWindow;  ­  очищает  графическое  окно  белым  цветом. ClearWindow(clназвание  цвета);  ­  очищает  графическое окно указанным цветом. program clear; uses GraphABC;  begin ClearWindow;  ClearWindow (clMoneyGreen);  end. Цвет зеленых денег 7

Графические примитивы 1. Точка 2. Линия 3. Прямоугольник  4. Окружность 5. Эллипс 6. Сектор 7. Дуга 8

ТОЧКА SetPixel(x,y,clназвание  цвета)  ­  закрашивает  один пиксел с координатами (x,y,) цветом   300,200 program tochka; uses GraphABC; begin   SetPixel(300,200,clred); end. 9

LineTo(x,y)  ­  рисует  отрезок  от  текущего  положения  пера  до  точки  (x,y);  координаты  пера при этом также становятся равными (x,y).  x,y Program liniay; uses GraphABC; begin    LineTo(300,200); end. 10

Линии Line(x1,y1,x2,y2)    ­  рисует  отрезок  с  началом  в  точке  (x1,y1)  и  концом  в  точке  (x2,y2).  x1,y1 x2,y2 Program liniay;  uses GraphABC; begin   line(100,50,500,250); end. 11

Используемые цвета clBlack – черный  clPurple – фиолетовый  clWhite – белый  clMaroon – темно­красный  clRed – красный  clNavy – темно­синий  clGreen – зеленый  clBrown – коричневый  clBlue – синий  clSkyBlue – голубой  clYellow – желтый  clCream – кремовый  clAqua – бирюзовый  clOlive – оливковый  clFuchsia – сиреневый  clTeal – сине­зеленый  clGray – темно­серый  clLime – ярко­зеленый  clMoneyGreen – цвет  зеленых денег  clLtGray – светло­серый  clDkGray – темно­серый clMedGray – серый clSilver – серебряный  Random(16777215) – случайный цвет из всей палитры цветов Паскаля 12

Цвет линии SetPenColor(color)  пера, задаваемый параметром color. ­  устанавливает  цвет  Program liniay; uses GraphABC; begin    setpencolor(clred);    line(30,30,400,350); end. 13

Пунктирная линия SetPenStyle(<номер от 1 до 6>); ­ устанавливает стиль пера, задаваемый номером.  program prim; uses GraphABC; begin   Setpencolor(clred);   SetPenStyle(1);  {1 ­ длинный штрих}   Line(10,100,350,100);   SetPenStyle(2);  {2 ­ короткий штрих}    Line(10,125,350,125);    SetPenStyle(3);  {3 ­ штрих­пунктир}    Line(10,150,350,150); end. 14

Толщина линии SetPenWidth(n)  ­  устанавливает  ширину  (толщину) пера, равную n пикселям.  Program liniay; uses GraphABC; begin    setpenwidth(20);    setpencolor(clred);    line(30,30,400,350); end. 15

Треугольник Рисуется процедурами  Line(x1,y1,x2,y2); LineTo(x,y);  Program treugolnik; uses GraphABC; begin   setpenwidth(20);   setpencolor(clPurple);   line(300,100,500,300);   lineto(100,300);   lineto(300,100);   floodfill(300,200, clSkyBlue); end. 16

Прямоугольник Rectangle(x1,y1,x2,y2)  заданный  прямоугольник,  противоположных вершин (x1,y1) и (x2,y2).  рисует  координатами  ­  x1,y1 x2,y2 Program pryamougolnik; uses GraphABC; begin   Rectangle(50,50,200,200); end. 17

Заливка цветом FloodFill(x,y,color)  ­  заливает  область  одного цвета цветом color, начиная с точки (x,y).  Х1,у1 Х2,у2 Program pryamougolnik; uses GraphABC; begin   Rectangle(50,50,200,200);   FloodFill(100,100, clSkyBlue); end. 18

Заливка кистью SetBrushColor(color) ­ устанавливает цвет кисти. Заливка  кистью  распространяется  на  замкнутый  контур,  описание  которого  следует  за  процедурой  установки  цвета  кисти. Program zalivka_kist; uses GraphABC; Begin SetBrushColor(clMoneyGreen) ;   Rectangle(50,50,300,300);  end. 19

Заливка кистью SetBrushStyle(номер  от  0  до  7  или  название)    устанавливает  стиль  кисти,  задаваемый  номером  или  символической  константой.  ­  Program p12_zalivka; uses GraphABC; Begin  SetBrushColor(clAqua);  SetBrushStyle(1);  Rectangle(10,10,100,100);  SetBrushColor(clRed);  SetBrushStyle(2);  Rectangle(110,10,200,100);  SetBrushColor(clBlue);  SetBrushStyle(3);  Rectangle(210,10,300,100);  SetBrushColor(clGreen);  SetBrushStyle(4);  Rectangle(10,110,100,210);  SetBrushColor(clYellow);  SetBrushStyle(5);  Rectangle(110,110,200,210);  SetBrushColor(clBlack);  SetBrushStyle(6);  Rectangle(210,110,300,210); end. 20 По умолчанию задается стиль 0 – сплошная заливка цветом.

Заливка кистью SetBrushPicture(‘fname’) - устанавливает  в  качестве  образца  для  закраски  кистью  образец,  хранящийся  в  файле  fname,  при  этом  текущий  цвет кисти при закраске игнорируется. uses GraphABC; begin      SetBrushPicture('brush4.bmp');Ellipse (0,0,640,400); end. 21

Цвет и толщина контура задаются процедурами SetPenWidth(w);  SetPenColor(color); Program pryamougolnik; uses GraphABC; begin   SetPenColor(clred);   SetPenWidth(20);   Rectangle(50,50,200,200);   FloodFill(100,100, clSkyBlue); end. 22

Окружность Circle(x,y,r)  ­  рисует  окружность  с  центром в точке (x,y) и радиусом r.  r x1,y1 Program circle; uses GraphABC; begin    Circle(500,200,100);    FloodFill(500,200,  clGreen ); end. 23

Эллипс Ellipse(x1,y1,x2,y2)    ­  рисует  эллипс,  заданный  своим  описанным  прямоугольником  с  координатами  противоположных вершин (x1,y1) и (x2,y2). x1,y1 x1,y1 x2,y2 x2,y2 Program oval; uses GraphABC; begin   Ellipse(50,50,200,350);   FloodFill(50+100,50+100,clred);   Ellipse(250,150,550,300);   FloodFill(250+100,150+100,clBlue); end. 24

Дуга окружности Arc(x,y,r,a1,a2)  ­  Рисует  дугу  окружности  с  центром  в  точке  (x,y)  и  радиусом  r,  заключенной  между  двумя  лучами,  образующими  углы  a1  и  a2  с  осью  OX  (a1  и  a2  –  вещественные,  задаются  в  градусах и отсчитываются против часовой стрелки).  r x,y Program duga; uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end. 25

Сектор Pie(x,y,r,a1,a2)  ­  рисует  сектор  окружности,  ограниченный  дугой  (параметры  процедуры  имеют  тот же смысл, что и в процедуре Arc).  r х1,у1 Program sector; uses GraphABC; begin Pie(300,200,100,0,90); FloodFill(300+10,200­10,clAqua); end. 26

Список литературы  Федоренко Ю. Алгоритмы и программы на Турбо Паскале.  Фаронов В.В. Turbo Pascal 7.0. Начальный курс.  ­ Нолидж, 1998. ­620 с.    Грызлов В.И., Грызлова Т.П. Турбо Паскаль 7.0.  ­ М.: "ДМК", 2000. ­ 416 с. Зуев Е.А. Язык программирования Turbo Pascal 6.0.  ­ М.: Унитех, 1992. ­ 298с.,ил. Зуев Е.А. Turbo Pascal. Практическое программирование.  27

СПАСИБО ЗА ВНИМАНИЕ! 28