«Программирование в системе Pascal ABC» Тема: «Графика в Паскале»

«Программирование в системе Pascal ABC» Тема: «Графика в Паскале» Магистрант Хаитов Икром Джураевич

Вопрос 1 Как называется элементарная точка на экране монитора? Пиксель Вопрос 2 В виде чего строятся изображения на экране? Растров

Вопрос 3 Какая самая важная характеристика растра? Расширение Вопрос 4 Дайте определение термину «графические примитивы». Графические примитивы – совокупность пикселей, определяющая некоторую геометрическую фигуру.

Вопрос 5 Как в Паскале инициализируется графический режим? Для работы с графикой в Паскале необходимой подключение модуля GraphABC. Uses GraphABC;

Подключение дополнительных библиотек Дляработы с графикой в ПаскаленеобходимойподключениемодуляGraphABC. Uses GraphABC; Код: program ...; uses graphabc; var ...; begin ... end.

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

Управление экраном SetWindowWidth(w)- устанавливает ширину графический окна. SetWindowWidth(h)- устанавливает высоту графический окна. SetWindowSize(w,h) - устанавливает размеры клиентской части графического окна в пикселях.

Графическиепримитивы • Точка • Линия • Прямоугольник • Окружность • Эллис • Сектор • Дуга

Точка SerVices(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.

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

Цветлиниии толщина SetPenColor(color)- устанавливаетцветпера, задаваемыйпараметром color. SetPenWidth(w)- устанавливает толщину пера, задаваемый параметром w. program liniay; uses GraphABC; begin SetPenColor(clred); SetPenWidth(2); Line(30,30,400,350); end.

Прямоугольник Rectangle(x1,y1,x2,y2)- рисует прямоугольник, заданный координатами противоположных вершин (х1,у1) и (х2,у2). program prym; uses GraphABC; begin Rectangle(50,50,200,200); end.

Заливка цветом FloodFill(x,y,color)- заливает область одного цвета цветом color, начиная с точки (х,у). program prym; uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.

Треугольник РисуетсяпроцедуройLine(x1,y1,x2,y2); Понадобиться еще одна процедура: SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. program treygolnik; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(100,300,300,100); line(300,100,500,300); line(500,300,100,300); FloodFill(300,200,clgreen); end.

Окружность Circle(x,y,r)- рисует окружность с центром в точке (х,у) и радиусом r. program circle; uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.

Дуга окружности Arc(x,y,r,a1,a2)- рисует дугу окружности с центром в точке (х,у) и радиусом r, заключенной между двумя лучами, образующими углы а1 и а2 с осью ОХ (а1 и а2 - вещественные, задаются в градусах и отсчитываются против часовой стрелки). program data; uses GraphABC; begin SetPenWidth(10); Arc(300,250,150,45,135); end.

Задание. Разработайте программу для создания следующего рисунка:

Алгоритм Инициализируйте графический режим с помощью подключения модуля GraphABC; Установите размер графического окна; Задайте толщину пера; Нарисуйте прямоугольник с помощью процедуры Rectangle; Нарисуйте окружность с помощью процедурыCircle; Заполните окружность красным цветом; Завершите программу.

Программный код program zad1; uses GraphABC; begin SetWindowsize(500,500); SetPenWidth(2); Rectangle(20,20,140,140); Circle(80,80,30); FloodFill(80,80,clred); end.

Задания для самостоятельного выполнения:Разработайте программу для создания следующих рисунков:

Домашние задания 1) Нарисуйте звезду прямыми линиями. 2) Нарисуйте робота из разноцветных прямоугольников.

«Программирование в системе Pascal ABC» Тема: «Графика в Паскале»