Подключение дополнительных библиотек в Pascal АВС для работы в графическом режиме. Управление экраном в программе и основные графические примитивы: точка, линия, прямоугольник, эллипс, сектор и др. Основные используемые цвета, рисование примитивами.
Графика в Pascal АВС Графический модуль Ориентация на экране монитора Примитивы Цвет, толщина, тип линии, заливка фигур цветом Цветовая ПАЛИТРАПОДКЛЮЧЕНИЕ дополнительных библиотек Для работы в графическом режиме необходима подключение модуля GRAPHABC Uses GRAPHABC ; Для работы с текстом - модуль Crt. Uses Crt ; program ……; uses crt, GRAHABC ; var……; begin ….. end.Графический режим Графический экран PASCALABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали . Начало отсчета - л евый верхний угол ЭКРАНАУПРАВЛЕНИЕ экраном SETWINDOWWIDTH(w) Устанавливает ширину графического окна; SETWINDOWHEIGHT(h)-Устанавливает высоту графического окна ;Графические примитивы Точка Линия Прямоугольник Окружность Эллипс Сектор ДУГАТОЧКА SETPIXEL (x,y, color) - Закрашивает один пиксел с координатами (х, у) цветом color Program tochka; uses graphabc; begin SETPIXEL(300,200,clred ); end .Линии Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (х1,у1) и концом в точке (х2, у2). Program liniay; uses GRAPHABC; begin line (100,50,500,250); end. х 1,у1 х2 ,у2Используемые цвета CLBLACK - черный CLAQUA - бирюзовый CLPURPLE - фиолетовый CLOLIVE - оливковый CLWHITE - белый CLFUCHSIA - сиреневый CLMAROON - темно-красный CLTEAL - сине-зеленый CLRED - красный CLGRAY - темно-серый CLNAVY - темно-синий CLLIME - ярко-зеленый CLGREEN - зеленый CLMONEYGREEN - цвет зеленых денег CLBROWN - коричневый CLLTGRAY - светло-серый CLBLUE - синий CLDKGRAY - темно-серый CLSKYBLUE - голубой CLMEDGREY - серый CLYELLOW - желтый CLSILVER - серебряный CLCREAM - КРЕМОВЫЙЦВЕТ линии SETPENCOLOR(color) - устанавливает цвет пера, задаваемый параметром color Program liniay; uses GRAPHABC; begin setpencolor(clred ); line(30,30,400,350 ); end .Прямоугольник Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (х1,у1) и (х2,у2) Program pryamougolnik; U ses GRAPHABC; begin Rectangle(50,50,200,200 ); end. х 1,у1 х2,у2Заливка цветом FLOODFILL(x, y, color) - заливает область одного цвета цветом color , начиная с точки (х,у) Program pryamougolnik; uses GRAPHABC; begin Rectangle(50,50,200,200); FLOODFILL(100,100,clblue ); end. х 1,у1 х2,у2ПРИМЕРЗАДАНИЕ № 1 Программа 1.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
