Конспект лекций по программированию для начинающих. Гладков В.П. - 132 стр.

                                    134

uses graph;
var        d,m :integer; { для инициализации графики }
           x0,y0:integer; { координаты центра осей координат графика }
           x,y,i:integer; { текущая точка и счетчик циклов }
           mx,my:real; { масштабы }
           s :string; { для разметки осей }
begin
   d:=detect;
   initgraph(d,m,'c:\tp7\bgi');
   setbkcolor(7);
   setcolor(1);
   x0:=getmaxx div 2;
   y0:=getmaxy div 2;
   { Рисуем оси координат }
           { ось X }
   line(0,y0,getmaxx,y0);
   line(getmaxx,y0,getmaxx-10,y0-10);
   line(getmaxx,y0,getmaxx-10,y0+10);
   outtextxy(getmaxx-10,y0-15,'X');
           { ось Y }
   line(x0,0,x0,getmaxy);
   line(x0,0,x0-10,10);
   line(x0,0,x0+10,10);
   outtextxy(x0-12,5,'Y');
           { масштабы }
   mx:=getmaxx/(10-(-10)+1);
   my:=getmaxy div 2/100;
           { наносим единицы измерения на оси }
   for i:=-10 to 10 do
   begin x:=x0+round(i*mx);
           line(x,y0-2,x,y0+2);
           str(i,s);
           outtextxy(x+1,y0+2,s);
   end;
   for i:=0 to 100 do
   begin y:=y0-round(i*my);
           if (i mod 10=0) and (i<>0)
           then begin line(x0-2,y,x0+2,y);
                          str(i,s);
                          outtextxy(x0+4,y,s);
                    end
   end;
    { вывод графика }
   x:=x0+round(-10*mx);
   y:=y0-round(100*my);
   moveto(x,y);