Задание № 4 по вычислительной практике

Тема: «Графические возможности языка Паскаль»

Модуль Graph содержит типы, константы, переменные и подпрограммы, позволяющие создавать изображения с использованием широкого набора графических адаптеров.

Процедуры управления графическим режимом

Procedure ...

InitGraph ( var Driver, Mode : Integer ; Path : String ) ;
—	инициализирует графическую систему, устанавливает графический режим, исходные значения текущего указателя, палитры, цвета и т.д. Driver —переменная, в которую необходимо записать код требуемого графического драйвера. Mode —переменная, в которую процедура помещает код графического режима для данного драйвера (максимально возможный, если не указать иное). Path —строка, содержащая путь к драйверу — если строка пустая, считается, что драйвер находится в текущем каталоге (папке). Если Driver = Detect, то выполняется вызов процедуры DetectGraph, загружается определенный этой процедурой драйвер и устанавливается определенный ею режим.
Closegraph ;
—	завершает работу в графическом режиме и осуществляет переход в текстовый режим работы экрана.

Функции управления графическим режимом

Function ...

ClearViewPort ;
—	очищает текущее графическое окно, закрашивает его в цвет фона, текущий указатель перемещается в левый верхний угол окна с координатами ( 0, 0 ). Если окно не определено к моменту вызова процедуры, она работает как процедура ClearDevice.
SetActivePage ( Page : Word ) ;
—	устанавливает для графического вывода номер активной страницы (страницы, в которую можно выводить информацию — активная страница может быть невидимой). Page — номер страницы (нумерация начинается с 0).
SetVisualPage ( Page : Word ) ;
—	устанавливает номер отображаемой на экране (видимой) графической страницы. Page —номер страницы (нумерация начинается с 0).

Управление цветом и палитрой Процедуры управления цветом и палитрой

Procedure ...

SetColor ( Color : Word ) ;

—

устанавливает текущий цвет, которым будут изображаться контуры фигур и тексты.

Color —устанавливаемый цвет (номер цвета из палитры).

SetBKColor ( Color : Word ) ;

—

устанавливает цвет фона экрана. Color — устанавливаемый цвет (номер цвета из палитры).

Работа с точками

Функции работы с точками

Function ...

GetMaxX : Integer ;
—	возвращает максимальную координату X (по горизонтали).
GetMaxY : Integer ;
—	возвращает максимальную координату Y (по вертикали).