 |
|
Простейшие графические процедуры и функции
ПРАКТИЧЕСКАЯ РАБОТА №_15
Тема: РАЗРАБОТКА АЛГОРИТМОВ И ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ МОДУЛЯ GRAPH.
Цель работы:формирование и отработка практических умений по созданию и использованию модулей; закрепление теоретических знаний по теме.
Техническое обеспечение: ПЭВМ.
Программное обеспечение: ОС Windows, ИСР Turbo Pascal 7.0 или Borland Delphi
Постановка задачи:Разработать программы для обработки данных с помощью модуля Graph.
ОБЩИЕ СВЕДЕНИЯ
Подключение графической библиотеки при программировании в среде Turbo-Pascal производится оператором: Uses Graph;
Переход из текстового режима к графическому (инициализация графики) осуществляется оператором: InitGraph(Gd, Gm, 'way');
где Gd - имя графического драйвера (параметр-переменная),
Gm - номер графического режима монитора (параметр-переменная),
'way' - дорожка DOS к файлам с графическими драйверами (*. bgi), например, C:\TP7\BGI .
Изменить режим можно процедурой SetGraphMode(Gm);
где 0 =<Gm<= GetMaxMode. Экран при этом очищается.
0 X Разрешающую способность для текущего графического
0 GetMaxX;режима можно определить функциями, возвращающими
максимальные значения координат экрана:
GetMaxX; - по оси "Х", GetMaxY; - по оси "Y".
GetMaxY;Начало координат (X= 0, Y= 0) расположено в левом 
верхнем углу
Y экрана. Ось Х направлена слева направо, ось Y - сверху вниз.
Для возврата из графического режима в текстовый можно использовать операторы:
CloseGraph;- полное прекращение работы графической системы,
RestoreCrtMode; -переключение в текстовый режим с возможностью возврата к текущим установкам графического режима (без восстановления графического изображения) операторомSetGraphMode;.
Простейшие графические процедуры и функции
После инициализации графического режима экран очищается и можно использовать процедуры рисования.
SetBkColor(N); - установить цвет "N" для пикселов фона. По умолчанию установлен черный цвет фона.
SetColor(N); - установить цвет "N" для выводимых линий.По умолчанию -белый цвет линий.
PutPixel(X, Y, N); - высветить цветом "N" пиксел с координатами X, Y.Наибольшее значение параметра "N" возвращает функция GetMaxColor;. Цвет задается аналогично цветам текста в модуле Crt - мож-но использовать целое число или соответствующую константу, например, при N<16: 0 - Black, 1 - Blue, . . 15 - White. Режим мерцания в графике не предусмотрен.