Pascal Модуль Graph ABC 1 Подключение дополнительных

Pascal Модуль Graph. ABC 1

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

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

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

Очистка графического окна Clear. Window; белым цветом. - очищает графическое окно Clear. Window(color); очищает графическое окно указанным цветом. program clear; uses Graph. ABC; begin Clear. Window; Clear. Window (cl. Money. Green); end. Цвет зеленых денег 5

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

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

Line. To(x, y) Линии рисует отрезок от текущего положения пера до точки (x, y); координаты пера при этом также становятся равными (x, y). x, y - Program liniay; uses Graph. ABC; begin Line. To(300, 200); end. 8

Линии Line(x 1, y 1, x 2, y 2) - рисует отрезок с началом в точке (x 1, y 1) и концом в точке (x 2, y 2). x 1, y 1 x 2, y 2 Program liniay; uses Graph. ABC; begin line(100, 500, 250); end. 9

Используемые цвета cl. Black – черный cl. Purple – фиолетовый cl. White – белый cl. Maroon – темно-красный cl. Red – красный cl. Navy – темно-синий cl. Green – зеленый cl. Brown – коричневый cl. Blue – синий cl. Sky. Blue – голубой cl. Yellow – желтый cl. Olive – оливковый cl. Fuchsia – сиреневый cl. Teal – сине-зеленый cl. Gray – темно-серый cl. Lime – ярко-зеленый cl. Money. Green – цвет зеленых денег cl. Lt. Gray – светло-серый cl. Dk. Gray – темно-серый cl. Med. Gray – серый cl. Silver – серебряный cl. Cream – кремовый Random(16777215) – случайный цвет из всей палитры цветов Паскаля 10

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

Толщина линии Set. Pen. Width(n) ширину (толщину) пикселям. - устанавливает пера, равную n Program liniay; uses Graph. ABC; begin setpenwidth(20); setpencolor(clred); line(30, 400, 350); end. 12

Прямоугольник Rectangle(x 1, y 1, x 2, y 2) - рисует прямоугольник, заданный координатами противоположных вершин (x 1, y 1) и (x 2, y 2). x 1, y 1 x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); end. 13

Заливка цветом Flood. Fill(x, y, color) заливает область одного цвета цветом color, начиная с точки (x, y). x 1, y 1 x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. 14

Заливка кистью Set. Brush. Color(color) - устанавливает цвет кисти. Заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти. Program zalivka_kist; uses Graph. ABC; Begin Set. Brush. Color(cl. Green); Rectangle(50, 300, 300); end. 15

Эллипс Ellipse(x 1, y 1, x 2, y 2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x 1, y 1) и (x 2, y 2). x 1, y 1 x 2, y 2 Program oval; uses Graph. ABC; begin Ellipse(50, 200, 350); Flood. Fill(50+100, clred); Ellipse(250, 150, 550, 300); Flood. Fill(250+100, 150+100, cl. Blue); end. 16

Окружность • • • Program n 3; Uses Graph. ABC; Begin circle (120, 130, 50); Flood. Fill(95, cl. Blue); end.

Дуга окружности Arc(x, y, r, a 1, a 2) - Рисует дугу окружности с центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a 1 и a 2 с осью OX (a 1 и a 2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки). r x, y Program duga; uses Graph. ABC; Begin Set. Pen. Width(10); Arc(300, 250, 150, 45, 135); end. 18

Сектор Pie(x, y, r, a 1, a 2) рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc). Program sector; uses Graph. ABC; begin Pie(300, 200, 100, 0, 90); Flood. Fill(300+10, 200 -10, cl. Blue); end. 19

Цвет и толщина контура Задаются процедурами Set. Pen. Width(w); Set. Pen. Color(color); Program pryamougolnik; uses Graph. ABC; begin Set. Pen. Color(clred); Set. Pen. Width(20); Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. 20

Вывод текста в графическое окно Text. Out(x, y, ’строка’); - выводит строку текста в позицию (x, y) (точка (x, y) задает верхний левый угол прямоугольника, который будет содержать текст). Program text; uses Graph. ABC; begin Text. Out(100, 30, 'Квадрат'); Rectangle(50, 200, 200); Flood. Fill(55, cl. Blue); end. 21

Например, Program color; uses Graph. ABC; begin Clearwindow(rgb(200, 150, 250)); Text. Out(93, 30, ' Квадрат '); Rectangle(50, 200, 200); Flood. Fill(55, cl. Red); Text. Out(275, 30, ' Эллипс'); Ellipse(250, 350, 200); Flood. Fill(250+50, cl. Yellow); end. 22