Реферат: Основні відомості про алгоритмічну мову Turbo Pascal Графіка Pascal

Приклад 1:позиціонування графічного курсору та визначення його координат:

Uses GRAPH;

v ar Driver, Mode : integer;

b egin

Driver := Detect;

InitGraph (Drive, Mode, ‘’);

i f GraphResult <> 0 then

b egin

w rite l n (‘ошибка’);

h alt (1);

e nd;

Move To (GetMax X div 2, GetMax Y div);

OutTextXY (GET X, GET Y, ‘курсор по центру’);

MoveRel (-GET X div 2, -GET Y div 2);

OutTextXY (‘Курсор переміщений’);

r ead l n;

CloseGraph;

e nd.

Установка кольору та стилю.

1) процедура Set Color (Color : word); встановлює поточний колір для ліній та символів. Параметр Color позначає номер кольору від 0 до 15:

Таблиця 1.

Black = 0	Light Gray = 7
Blue = 1	Darc Gray = 8
Green 2	Light Blue = 9
Cyan =3	Light Green = 10
Red = 4	Light Cyan = 11
Magente = 5	Light Red = 12
Brown = 6	Light Magente = 13 Yellow = 14 White = 15 Blink = 128

2) процедура SetBKColor (Color : word); встановлює колір фону, який визначається параметром Color .

3) процедура SetFillStyle (Fill, Color : word); встановлює стиль (тип і колір) заповнення фрагментів зображення.

Геометричні побудови.

1) Відображення точки:

В модулі Graph для відображення точки використовують процедуру:

PutPixel (x, y : integer);

x, y – координата точки;

Color – її колір (значення беруть зі встановленої палітри).