Презентация к уроку "Pascal Модуль GraphABC"

• 1 слайд

  Pascal
  Модуль GraphABC
  Урок 1
  1
  

• 2 слайд

  Подключение дополнительных библиотек
  Для работы в графическом режиме необходимо подключение модуля GraphABC.
  Uses GraphABC;
  Для работы с текстом - модуль Crt.
  Uses Crt;
  program …;
  uses crt, GraphABC;
  var …;
  begin
  …
  end.
  2
  

• 3 слайд

  3
  Графический режим
  Графический экран PasсalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали.
  640 точек
  400 точек
  Начало отсчета – левый верхний угол экрана
  

• 4 слайд

  4
  Управление экраном
  SetWindowWidth(w) - Устанавливает ширину графического окна;
  SetWindowHeight(h) - Устанавливает высоту графического окна;
  

• 5 слайд

  5
  Графические примитивы
  Точка
  Линия
  Прямоугольник
  Окружность
  Эллипс
  Сектор
  Дуга
  

• 6 слайд

  6
  Точка
  SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color
  program tochka;
  uses GraphABC;
  begin
  SetPixel(300,200,clred);
  end.
  

• 7 слайд

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

• 8 слайд

  8
  Используемые цвета
  Random(16777215) – случайный цвет из всей палитры цветов Паскаля
  

• 9 слайд

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

• 10 слайд

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

• 11 слайд

  11
  Заливка цветом
  FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y).
  Program pryamougolnik;
  uses GraphABC;
  begin
  Rectangle(50,50,200,200);
  FloodFill(100,100,clBlue);
  end.
  x1,y1
  x2,y2
  

• 12 слайд

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

• 13 слайд

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

• 14 слайд

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

• 15 слайд

  Программа
  15
  

• 16 слайд

  Упражнения
  16