Реферат: Графические средства языка Паскаль

VAR GrDriver,GrMode,Lx,Ly,Px,Py : Integer;

i : Word;

s : STRING;

Mx,My,x : Real;

BEGIN {инициализируем графический режим}

GrDriver:=DETECT; InitGraph(GrDriver,GrMode,'');

{закрасим экран фоновым цветом}

SetFillStyle(1,ScreenColor); Bar(0,0,GetMaxX,GetMaxY);

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

Lx:=GetMaxX+1-LeftBlank-RightBlank;

Ly:=GetMaxY+1-TopBlank-BottomBlank;

Px:=LeftBlank; Py:=GetMaxY-BottomBlank;

{нарисуем оси}

SetColor(AxisColor);

MoveTo(LeftBlank,TopBlank-1); LineRel(0,Ly); LineRel(Lx,0);

{оцифруем ось X}

SetTextJustify(CenterText,TopText);

FOR i:=1 TO TicsNumX DO BEGIN

MoveTo(LeftBlank+i*Lx DIV TicsNumX,Py); LineRel(0,TicSize);

IF i=1 THEN s:='' ELSE Str(i,s); MoveRel(0,2); OutText(s+'Pi');

END;

{оцифруем ось Y}

SetTextJustify(RightText,CenterText);

FOR i:=1 TO TicsNumY DO BEGIN

MoveTo(Px,Py-i*Ly DIV TicsNumY); LineRel(-TicSize,0);

Str(i/10:3:1,s); MoveRel(-2,0); OutText(s);

END;

{выведем пояснительный текст}

SetTextJustify(CenterText,CenterText); SetColor(TextColor);