�ݺ�ߣ

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

1

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

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

3

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

4

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

Точка
SetPixel(x,y,color) - Закрашивает
один пиксел с координатами (x,y) цветом
color

program tochka;
uses GraphABC;
begin
SetPixel(300,200,clred);
end.

6

Линии
Line(x1,y1,x2,y2) - рисует отрезок
с началом в точке (x1,y1) и концом в
точке (x2,y2).

x1,y1
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
x2,y2
end.

7

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

Цвет линии
SetPenColor(color) - устанавливает
цвет пера, задаваемый параметром
color.

Program liniay;
uses GraphABC;
begin
setpencolor(clred);
line(30,30,400,350);
end.

9

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

x1,y1
Program pryamougolnik;
uses GraphABC;
begin
x2,y2
Rectangle(50,50,200,200);
end.

10

Заливка цветом
FloodFill(x,y,color) - заливает
область одного цвета цветом color, начиная
с точки (x,y).

x1,y1
Program pryamougolnik;
uses GraphABC;
x2,y2 begin
Rectangle(50,50,200,200);
FloodFill(100,100,clBlue);
end.

11

Треугольник
Рисуется процедурами
Line(x1,y1,x2,y2); LineTo(x,y);

Program treugolnik;
uses GraphABC;
begin
setpenwidth(20);
setpencolor(clred);
line(300,100,500,300);
lineto(100,300);
lineto(300,100);
floodfill(300,200,clgreen);
12
end.

Окружность
Circle(x,y,r) - рисует окружность с
центром в точке (x,y) и радиусом r.

Program circle;
uses GraphABC;
r begin
x1,y1 Circle(500,200,100);
FloodFill(500,200,clred);
end.

13

Дуга окружности
Arc(x,y,r,a1,a2) - Рисует дугу
окружности с центром в точке (x,y) и
радиусом r, заключенной между двумя
лучами, образующими углы a1 и a2 с осью
OX (a1 и a2 – вещественные, задаются в
градусах и отсчитываются против часовой
стрелки).

r Program duga;
uses GraphABC;
x,y Begin
SetPenWidth(10);
Arc(300,250,150,45,135);
end. 14

Масштаб : 1 клетка – 20 пикселей

На координатной плоскости строим
рисунок и отмечаем ключевые точки
построения.

16

Программа

17

Упражнения

18

Домашнее задание
• Стр.69 Упр1 а, в (координатная
плоскость)

19

�ݺ�ߣ

графика Pascal ABC

Recommended

More Related Content

Similar to графика Pascal ABC (20)

More from Элла Якубейко (9)

графика Pascal ABC