Основные возможности модуля graph

1. ЦЕЛЬ И ЗАДАЧИ РАБОТЫ

Целью работы является изучение основ работы с графическими процедурами и функциями языка Turbo Pascal.

2. ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

Модуль Graph представляет собой библиотеку из более чем 50 графических процедур и функций. В модуле поддерживаются несколько типов линий и стилей заполнения, существует несколько типов шрифтов, которые можно увеличивать, выравнивать и ориентировать вертикально или горизонтально. Для того чтобы выполнить программу, которая использует модуль Graph, необходимо иметь доступ к одному или более графических драйверов (файлы с расширением BGI), файлам TURBO.TPL, GRAPH.TPU и к файлам шрифтов с расширением CHR. Каждый драйвер содержит код и данные, хранящиеся в отдельном файле.

Во время выполнения, процедура InitGraph определяет графическое устройство, загружает и инициализирует соответствующий графический драйвер, переводит систему в графический режим и возвращает управление вызывающей программе.

Процедура Close Graph выгружает драйвер из памяти и восстанавливает предыдущий видеорежим.

Рассмотрим используемую в графическом режиме координатную систему.

Верхний левый угол графического экрана определен как (0,0). Значение Х или колонки увеличиваются направо. Значение Y или строки увеличиваются вниз. Так в режиме 640x480 на адаптере CGA экранные координаты каждого из четырех углов и точка в центре экрана будут представлены:

Для вывода графической информации в заданную позицию в Turbo Pascal

используется текущий указатель (CP - Current Pointer). CP подобен курсору в

текстовом режиме, но в отличие от курсора CP не виден. Следующие процедуры

перемещают CP: InitGraph, MoveTo, MoveRel, LineTo, LineRel, OutText,

SetGraphMode, GraphDefaults, ClearDevice, SetViewPort, ClearViewPort.

Причем последние 5 команд перемещают CP в позицию (0,0).

Графический модуль Turbo Pascal позволяет использовать большое число

процедур для рисования различных геометрических фигур: точек, линий,

окружностей, дуг, эллипсов, прямоугольников, многоугольников и т.д. Все

графические процедуры и функции с кратким описанием приведены ниже.

Рассмотрим пример программы:

program GraphText;

uses

Graph;

var

GraphDriver,

GraphMode,

ErrorCode: Integer;

begin

{Автоматическое определение драйвера}

GraphDriver:=Detect;

{Последний параметр InitGraph указывает путь к драйверам}

InitGraph(GraphDriver, GraphMode, 'C:\DRIVERS');

ErrorCode:=GraphResult;

if ErrorCode <> grOK then {ошибка }

begin

Writeln('Graphics error: ', GraphErrorMsg(ErrorCode));

Writeln('Program aborted...');

Halt(1);

end;

Rectangle(0, 0, GetMaxX, GetMaxY); {рисовать прямоугольник на весь экран}

OutTextXY(GetMaxX div 2, GetMaxY div 2,

'Borland Graphics interface (BGI)');

Readln;

CloseGraph;

end. {GraphTest}

Программа начинается с вызова InitGraph, который автоматически определяет тип адаптера и загружает соответствующий графический драйвер. ВНИМАНИЕ: на разных компьютерах этот путь различается, поэтому в программе пишите СВОЙ путь. Если графическое устройство не распознано или во время инициализации произошла ошибка, выдается сообщение об ошибке и программа завершается. Иначе, чертится прямоугольник по краю экрана и в центре экрана выводится текст.

3.ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

1. Ознакомиться с теоретическими сведениями данной работы.

2. Ответить на контрольные вопросы.

3. Выполнить свой вариант задания.

4.ОФОРМЛЕНИЕ ОТЧЕТА

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

5.КОНТРОЛЬНЫЕ ВОПРОСЫ

1) Что такое текущий указатель?

2) Какой вид имеет система координат в графическом режиме?

3) Следует ли указывать в директиве USES модуль GRAPH?

4) Какие действия производят процедуры InitGraph и CloseGraph?

5) Написать программу, которая в центре красного экрана пользователя рисует окружность, залитую желтым цветом.

6. ВАРИАНТЫЗАДАНИЙ

С помощью процедур и функций модуля GRAPH на экране изобразить декартовую систему координат (по осям расставить цифровые значения) и построить графики:

1) x=3t (1+t³), y=3t² (1+t³) при -1<t 5;

2) x=t²/(1+t²), y=t³/(1+t²) при -10 t 10;

3) x=(t²-1)/(1+t²), y=t(t²-1)/(1+t²) при -10 t 10;

4) x=cos² t+cost, y=cost sint+sint при 0 t<2 ;

5) x=cost (1+cost), y=sint (1+cost) при 0 t<2 ;

6) x=t-sint, y=1-cost при 0 t<2 ;

7) x=sint, y=t²-cost при 0 t<2 ;

8) x=t²*sint, y=t²-cost при - t. ;

9) x=sint, y=cost при - t ;

10) x=cos²t, y=sin²t при 0 t 2 .