Основы графики в Pascal
методическая разработка по информатике и икт (9 класс) по теме

Основные процедуры, функции, константы

Константы цвета

PutPixel(X, Y, C) – рисование точки в заданном месте экрана (x,y), где с – номер цвета

Bar(X1, Y1, X2, Y2) – рисование закрашенного прямоугольника

Line(X1, Y1, X2, Y2) – рисование отрезка с концами в точках (x1,y1) и (x2,y2)

LineRel(DX, DY) – построение отрезка из текущего положения (x,y) до точки с координатами (x+dx,y+dy)

LineTo(X, Y) – построение отрезка из текущего положения до точки с координатами (x,y)

MoveRel(X, Y) – перемещение на x точек по горизонтали вправо и на y точек по вертикали вниз

MoveTo(X, Y) – перемещение в точку с координатами (x,y)

OutTextXY(X, Y, S) – строка S выводится с позиции (x,y)

OutText(S) – строка S выводится в точке текущего положения

SetColor(C) – устанавливает цвет рисования линий

SetBkColor(C) – устанавливает цвет фона

SetFillStyle(P, C) – устанавливает стиль и цвет закрашивания замкнутых областей. P может принимать значения от 0 до 12

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

Проверьте путь к файлу модуля: Options → Directories → Unit Directories (c:\bp\units)

Процедура инициализации графического режима:

Var GraphDriver, GraphMode:Integer;

Procedure Init;

Begin

GraphDriver:=Detect;             {автораспознавание драйвера}

InitGraph(GraphDriver, GraphMode, ’c:\bp\bgi’);

{инициализация графической системы и перевод аппаратуры в графический режим}

If GraphResult<>0 then

Begin

Writeln(‘Ошибка инициализации графики’);

Halt(1);                        {прерывание работы программы}

End;

End.

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

’c:\bp\bgi’ –  путь к графическим драйверам (egavga.bgi).

Оператор CloseGraph закрывает графическую систему

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

Проверьте путь к файлу модуля: Options → Directories → Unit Directories (c:\bp\units)

Процедура инициализации графического режима:

Var GraphDriver, GraphMode:Integer;

Procedure Init;

Begin

GraphDriver:=Detect;             {автораспознавание драйвера}

InitGraph(GraphDriver, GraphMode, ’c:\bp\bgi’);

{инициализация графической системы и перевод аппаратуры в графический режим}

If GraphResult<>0 then

Begin

Writeln(‘Ошибка инициализации графики’);

Halt(1);                        {прерывание работы программы}

End;

End.

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

’c:\bp\bgi’ – путь к графическим драйверам (egavga.bgi).

Оператор CloseGraph закрывает графическую систему

Основные процедуры, функции, константы

Константы цвета

PutPixel(X, Y, C) – рисование точки в заданном месте экрана (x,y), где с – номер цвета

Bar(X1, Y1, X2, Y2) – рисование закрашенного прямоугольника

Line(X1, Y1, X2, Y2) – рисование отрезка с концами в точках (x1,y1) и (x2,y2)

LineRel(DX, DY) – построение отрезка из текущего положения (x,y) до точки с координатами (x+dx,y+dy)

LineTo(X, Y) – построение отрезка из текущего положения до точки с координатами (x,y)

MoveRel(X, Y) – перемещение на x точек по горизонтали вправо и на y точек по вертикали вниз

MoveTo(X, Y) – перемещение в точку с координатами (x,y)

OutTextXY(X, Y, S) – строка S выводится с позиции (x,y)

OutText(S) – строка S выводится в точке текущего положения

SetColor(C) – устанавливает цвет рисования линий

SetBkColor(C) – устанавливает цвет фона

SetFillStyle(P, C) – устанавливает стиль и цвет закрашивания замкнутых областей. P может принимать значения от 0 до 12