type TFunction=function(x:real):real;

procedure drawgraph(f:TFunction;a,b:real);

var i,j:integer;

    d,dd,x,y,m,mm:real;

    s:string;

begin

  if a=b then begin

    putpixel(getmaxx div 2,getmaxy div 2,14);

    exit end; {если А=Б, то график - точка, а уж где она будет...}

  if a>b then begin

    d:=a;

    a:=b;

    b:=d; {поменяли местами}

  end;

  d:=(b-a)/(getmaxx-1); {интервал изменения значения ф-и, чтобы каждый раз не считать}

  {теперь считаем диапазон значений ф-и}

  m:=f(a);

  mm:=f(a);

  x:=a;

  while x<=b do begin

    x:=x+d;

    y:=f(x); {вот это собственно и есть график, хехе. Мы его просто пока не рисуем}

    if m<y then m:=y;

    if mm>y then mm:=y;

  end; {теперь М - это максимум, ММ - минимум}

  dd:=(m-mm)/(getmaxy-1);

  {собственно рисуем}

  i:=1;

  x:=a;

  y:=f(a);

  setcolor(14);

  str(y:0:3,s);

  j:=getmaxy-trunc((y-mm)/dd); {графика не признает действительных чисел}

  if j>getmaxy-40 then outtextxy(1,j-15,s) else outtextxy(1,j+10,s); {выводим начальное значение F(a)}

  setcolor(12);

  str(a:0:2,s);

  if j>getmaxy div 2 then outtextxy(1,1,s) else outtextxy(1,getmaxy-textheight(s)-1,s); {это значение А}

  setcolor(11);

  moveto(i,j);

  while x<=b do begin

    x:=x+d;

    inc(i); {смещение Х на D эквивалентно смещению точки на 1 по экрану}

    y:=f(x);

    j:=getmaxy-trunc((y-mm)/dd);

    lineto(i,j); {из предыдущего положения - в текущее, а предыдущее сначала задается moveto'м, а потом его помнит модуль графики}

  end;

  {график нарисовали, теперь оформлЯем}

  setcolor(14);

  str(y:0:3,s);

  if j>getmaxy-40 then outtextxy(getmaxx-textwidth(s)-1,j-15,s) else outtextxy(getmaxx-textwidth(s)-1,j+10,s); {такой трюк для того, чтобы все цифры поместились на экране}

  setcolor(12);

  str(b:0:2,s);

  if j>getmaxy div 2 then outtextxy(getmaxx-textwidth(s)-1,1,s) else outtextxy(getmaxx-textwidth(s)-1,getmaxy-textheight(s)-1,s);

  {ну и хватит}

end;