Графика. Явно заданые функции, добивка (код присутствует)

uses crt,graph,nmark;
{nmark модуль для инициирования графического режима}
const
x1=-10; x2=10;
y1=-8; y2=8;
var
mx,my,a,x,b,dx,y:real;
x0,y0,px,py,i,k:integer;
s,s1:string;
begin
clrscr;
init;
X0:=600 div 2;
Y0:=420 div 2;
setbkcolor(15);
setpalette(5,0);
setcolor(5);
mx:=getmaxx/(x2-x1);
my:=getmaxy/(y2-y1);
SetBkColor(15);
setlinestyle(0,0,5);
line(0,y0,getmaxX,y0);
line(x0,getmaxy,x0,0);
for i:=1 to 10 do
    begin
         Setcolor(5);
         line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
         line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
         line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
         line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
         str(i,s);
         setcolor(1);
         outtextXY(x0-25,y0-round(i*my),s);
         outtextXY(x0-25,y0+round(i*my),'-'+s);
         str(i,s);
         outtextXY(x0+round(i*mx),y0+10,s);
outtextXY(x0-round(i*mx),y0+10,'-'+s);
end;
SeTCOLOR(5);
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,5, 'Y');
dx:=0.0001;
x:=x1;
setcolor(12);
while x<=x2 do
begin
px:=x0+round(x*mx);
y:=1/(x*x+2*x+1);
py:=y0-round(y*my);
putpixel(px,py,11);
x:=x+dx;
end;
outtextXY(540,15,'y=1/(x^2+2x+1)');
readln;
end.

uses crt,graph;
const
x1=-10; x2=10;
y1=-8; y2=8;
var mx,my,a,x,b,dx,y,xa:real;
x0,y0,px,py,i,k:integer;
s,s1:string;
begin
clrscr;
i:=0;
initgraph(i,k,'');
X0:=getmaxX div 2;
Y0:=getmaxY div 2+100;
setbkcolor(15);
setpalette(5,0);
setcolor(5);
mx:=getmaxx/(x2-x1);
my:=getmaxy/(y2-y1);
SetBkColor(15);
setlinestyle(0,0,5);
line(0,y0,getmaxX,y0);
line(x0,getmaxy,x0,0);
for i:=1 to 10 do
    begin
         Setcolor(5);
         line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
         line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
         line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
         line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
         str(i,s);
         setcolor(1);
         outtextXY(x0-25,y0-round(i*my),s);
         outtextXY(x0-25,y0+round(i*my),'-'+s);
         str(i,s);
         outtextXY(x0+round(i*mx),y0+10,s);
outtextXY(x0-round(i*mx),y0+10,'-'+s);
end;
SeTCOLOR(5);
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,5, 'Y');
dx:=0.0001;
x:=x1;
setcolor(12);
while x<=x2 do
 begin
  px:=x0+round(x*mx);
  if abs(x*x+2*x+1)>0.001 then
   begin
    y:=1/(x*x+2*x+1);
    py:=y0-round(y*my);
   end
  else {if abs(x*x+2*x+1)<0.001 then} xa:=x;
  putpixel(px,py,11);
  x:=x+dx;
 end;
setcolor(12);
line(x0+round(xa*mx),0,x0+round(xa*mx),getmaxY);
outtextXY(500,15,'y=1/(x^2+2x+1)');
readln;
end.