Презентация Графика в Паскале

Описание презентации по отдельным слайдам:

• 

  1 слайд

  Графика в Паскале
  Чтобы работать с графикой в Паскале необходимо подключить модуль GraphABC.
  В этом модуле содержится набор процедур и функций, предназначенных для работы с графикой.
  С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями.

• 

  2 слайд

  Подключение модуля осуществляется в разделе описаний.
  Формат подключения модуля GraphABC:
  Program grafika;
  uses GraphABC;
  begin
  ……..
  end.

• 

  3 слайд

  Система координат в Паскале

• 

  4 слайд

  Допустим нам надо найти точку с координатами А (100, 70), т.е.

  Абцисса точки А (х) – 100
  Ордината точки А (у) — 70

• 

  5 слайд

• 

  6 слайд

  Основные графические функции
  Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций.
  Для того, что бы команда выполнилась необходимо указать команду и задать значения параметров.

• 

  7 слайд

  ДЛЯ ТОГО, ЧТОБЫ ИСПОЛЬЗОВАТЬ ЦВЕТ, НЕОБХОДИМО ПРИМЕНИТЬ ЭТОТ ЦВЕТ К ИНСТРУМЕНТУ ПЕРО:

  SetPenColor(color) — устанавливает цвет пера, задаваемый параметром color;
  setBrushColor(color) — устанавливает цвет кисти, задаваемый параметром color;
  FloodFill(x,y,color) — заливает область одного цвета цветом color, начиная с точки (x,y).

• 

  8 слайд

  Рисуем точку:
  для отображения точки используется процедура
  SetPixel(x,y,color) — закрашивает один пиксел с координатами (x,y) цветом color

  Program tochka;
  Uses GraphABC;
  begin
  SetPixel (300,200,clred);
  TextOut (301,200,’точка’);
  end.

• 

  9 слайд

• 

  10 слайд

  Рисуем линию:
  Line (x1,y1,x2,y2) — рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2)

  Program liniay;
  Uses GraphABC;
  begin
  Line(100,50,500,250);
  end.

• 

  11 слайд

• 

  12 слайд

  Добавим элементов линии:

  Program liniay;
  Uses GraphABC;
  Begin
  SetPenWidth (5); //Толщина пера 5 пикселей//
  SetPenColor(clRed); //Цвет пера – красный//
  TextOut(100,30, ‘прямая’); //Название// Line(100,50,500,250);
  end.

• 

  13 слайд

• 

  14 слайд

  Рисуем прямоугольник

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

• 

  15 слайд

• 

  16 слайд

  Изменим цвет, надпись, толщину пера:

  Program pryamougolnik;
  Uses GraphABC;
  Begin
  SetPenwidth(10);
  Rectangle(50,50,200,200);
  FloodFill (100,100,clBlue);
  TextOut(200,30, ‘прямоугольник’);
  end.

• 

  17 слайд

• 

  18 слайд

  Рисуем треугольник

  Треугольник рисуется процедурами:

  Line(x1,y1,x2,y2);
  LineTo(x,y);

  Program treugolnik;
  Uses GraphABC;
  Begin
  SetPenwidth(10); //толщина пера//
  SetPenColor(clred); //заливка пера//
  Line(300,50,500,150,); //рисуем линию//
  Line(300,50,100,150,); //рисуем линию//
  Line(100,150,500,150,); //рисуем линию//
  FloodFill (300,100,clgreen); //заливка//
  TextOut(200,30, ‘треугольник’); //надпись//
  end.

• 

  19 слайд

• 

  20 слайд

  Рисуем окружность

  Окружность рисуется процедурой:
  Circle (x,y,r);
  (x,y) – центр окружности
  R — радиус

• 

  21 слайд

• 

  22 слайд

• 

  23 слайд

• 

  24 слайд

  Изменим цвет, надпись, толщину пера:

  Program krug;
  Uses GraphABC;
  Begin
  SetPenwidth(10); //толщина пера//
  SetPenColor(clGreen); //цвет пера//
  Circle (500,200,100); //рисуем окружность//
  FloodFill(500,200,clRed); //заливка окружности//
  TextOut(500,100, ‘окружность’); //название//
  end.

• 

  25 слайд

• 

  26 слайд

  Задание
  Для выполнения лабораторной работы «Графика в Паскале» необходимо изучить теорию лабораторной работы и выполнить практическую часть. При этом выставить свои параметры для всех фигур:
  Изменить размер, цвет, толщину пера, заливку и название всех фигур. (названия процедур и функций, цвета указаны в лабораторной работе)
  Набрать все задачи, указанные в конце лабораторной работы, также поменяв отдельные параметры.

Автор статьи

Анастасия

Задать вопрос

Эксперт