Графика Pascal

1.

Введение
Пункт
плана
Граф.
Пункт плана
примитивы
Пункт плана
Текст
Пункт
плана
Литература
Пункт
плана

2.

Граф.
Пункт плана
примитивы
Пункт плана
Текст
Пункт
плана
Для работы в графическом режиме
необходимо
подключение
модуля
GraphABC.
Первой инструкцией программы
должна быть инструкция
uses GraphABC;
Введение
Пункт
плана
Подключение дополнительных
библиотек
Литература
Пункт
плана

3.

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

4.

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

5.

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

6.

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

7.

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

8.

Треугольник
Введение
Пункт
плана
Рисуется процедурами
Граф.
Пункт плана
примитивы
Текст
Пункт
плана
Литература
Пункт
плана
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);

9.

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

10.

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

11.

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

12.

Пункт плана
Текст
Пункт
плана
Литература
Пункт
плана
Program text;
uses GraphABC;
begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
FloodFill(55,55,clBlue);
end.
Граф.
Пункт плана
примитивы
- выводит строку
текста в позицию (x,y) (точка (x,y) задает верхний
левый угол прямоугольника, который будет
содержать текст).
TextOut(x,y,’строка’);
Введение
Пункт
плана
Вывод текста в графическое окно