Графические команды

Использование графических команд расширяет возможности программирования и может служить одной из форм представления результатов в программе. Все графические команды описаны в модуле graph.tpu, который нужно подключать наряду с модулем crt.tpu. Рассмотрим пример программы с подключением и использованием графики.

Program Graphic;

Uses crt,graph;

Var GrDriver,GrMode,ErrCode: integer;

Begin

InitGraph(grDriver, grMode,'');

ErrCode:=GraphResult;

If ErrCode=grOk then

begin

действие 2;

…

Readkey;

end

else Writeln('Graphics error:', GraphErrorMsg(ErrCode));

End.

Рассмотрим написание и назначение некоторых графических команд:

1) Line(x₁,y₁,x₂,y₂) – построение линии по двум точкам;

2) Bar(x₁,y₁,x₂,y₂) – построение прямоугольника относительно диагонали, построенной по двум точкам;

3) Circle(x,y,R) – построение окружности радиусом R с центром в точке x,y;

4) Pieslice(x,y,α₁,α₂,R) – построение сектора радиусом R с центром в точке x,y от угла α₁ до угла α₂;

5) SetColor – задание цвета графических объектов;

6) SetFillStyle(n,m) – задание способа (n) и цвета (m) заливки фигуры.

При построении графических объектов в Pascal следует помнить, что графический экран представляет из себя систему координат с началом в верхнем левом углу с максимальными значениями x=640 и y=480.