Начальные сведения о Турбо Паскале

### Конспект урока | Вопросы самопроверки | Задания на дом | Практикум | Тест

В составе Турбо Паскаль есть специальный графический модуль GRAPH, который содержит графические процедуры и функции. Для того чтобы можно было использовать эти процедуры, необходимо описать этот модуль с помощью директивы USES.
USES GRAPH;
В обычном состоянии после загрузки экран находится в текстовом режиме. Применение графических процедур невозможно.Для того чтобы это стало возможным, необходимо перейти в графический режим. Это совершается с помощью процедуры INITGRAPH(GD,GM,'TPF');
где GD,GM:integer;TPF:string.
GD(graphdriver) - параметр, который определяет выбор графического драйвера. Если его значение 0, то производится специальная процедура: выбирается один из имеющихся в конфигурации драйверов и подбирается подходящий графический режим GD(GRAPHMODE). Если же этот параметр отличен от нуля, то выбирается конкретный драйвер (например GD=9 -VGA), тогда и GM должен иметь определенное значение. Значения, которые могут принимать параметры GD и GM, давать не стоит, так как в основном работа идет на адаптерах VGA.Чаще всего используют подключение через специальную процедуру, присваивая GD значение 0 или GD:=DETECT; Параметр GM - устанавливает графический режим, то есть разрешение экрана и цветной или черно-белый режим. По умолчанию, при GD=0, устанавливается цветной режим (16 цветов), разрешением 640*480 точек (пиксел).
Строковый параметр TPF - указывает путь к графическому драйверу. Если он равен '' (пустая строка), то драйвер ищется в текщем каталоге (где он обычно и расположен).Если же графический драйвер располагается не в текущем каталоге, то прописывается полный путь.
Например:'c:\tp70\bgi'.
Итак,для перехода в графический режим программа выглядит так:
USES GRAPH;
VAR GD,GM:INTEGER;
Begin
GD:=detect;
INITGRAPH(GD,GM,'');
Основные процедуры графики:
- для выхода из графического режима применяется процедура CLOSEGRAPH;
- для очистки графического окна используется процедура CLEARDEVICE.
Основные процедуры:
PUTPIXEL(X,Y,C); -рисует точку с координатами X,Y и цветом C;
LINE(X1,Y1,X2,Y2) - рисует линию от точки с координатами X1,Y1 до точки с координатами X2,Y2;
RECTANGLE(X1,Y1,X2,Y2);-рисует рамку с диагональю X1,Y1-X2,Y2;
BAR(X1,Y1,X2,Y2) - рисует прямоугольник с диагональю X1,Y1 - X2,Y2, закрашенный в соответствии с образцом, установленным процедурой SETFILLSTYLE;
BAR3D(X1,Y1,X2,Y2,L,TOP[ON/OFF] - рисует прямоугольный брусок, с передней гранью на диагонали X1,Y1 - X2,Y2, глубиной, обусловленной параметром L. Параметр TOP[ON/OFF] определяет, имеет ли брусок перекрытие сверху или нет;
ARC(X,Y,ALF1,ALF2,R) -рисуется дуга радиусом R с центром в точке X,Y от угла ALF1 до угла ALF2. Угол задается в градусах.
CIRCLE(X,Y,R) - рисуется окружность радиуса R,с центром в точке X,Y.
SETLINESTYLE(STIL,PATTERN,TOLSCH) -устанавливает тип линии (сплошная, пунктирная, штрих-пунктирная, штриховая) и ее толщину. SETFILLSTYLE(OBR,C) - устанавливает образец заполнения для процедур BAR, BAR3D, FLOODFILL. Значение параметра OBR, равное 0, - цветом фона, 1 - сплошное заполнение цветом, указанным параметром С.
SETCOLOR(C) - устанавливает цвет рисования;
SETBKCOLOR(C) -устанавливает цвет фона;
FLOODFILL(X,Y,C) -заполняет замкнутые области, ограниченные линией цвета С, в соответствии с образцом, установленным процедурой SETFILLSTYLE.

1. Прочитать теорию урока.
2. Написать программу, которая рисует на экране прямоугольник, окружность.