Object Pascal (Delphi)

{$R *.dfm}
function F(x:real):real;
begin
F:=1/x;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var xn,xk,xc,yc,w,h,i:integer;
    max,mx,my,x:real;
begin
//ширина и высота графического окна
w:=Image1.Width;
h:= Image1.Height;
//начало координат
xc:=w div 2;
yc:=h div 2;
//интервал по Х
xn:=-5;
xk:=5;
x:=xn;
//масштабы
mx:=(xc-30)/xk;
my:=(yc-10)/10;
//рисуем график
with Image1.Canvas do
 begin
 // Brush.Color:=clWhite;
  MoveTo(0,yc);
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  textout(w-20,yc-20,'X');
  textout(xc+15,10,'Y');
  textout(xc+10,yc+10,'0');
  for i:=1 to 10 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my)); LineTo(xc-3,yc-round(i*my));
    MoveTo(xc+3,yc+round(i*my)); LineTo(xc-3,yc+round(i*my));
    {if i mod 2=0 then
     begin  }
      textout(xc-30,yc-round(i*my),inttostr(i));
      textout(xc-30,yc+round(i*my),inttostr(-i));
    // end;
   end;
 x:=xn;
 while x<=xk do
  begin
   if abs(x)>0.01 then pixels[xc+round(x*mx),yc-round(F(x)*my)]:=clred;
   x:=x+0.001;
  end;
 end;
Form1.Caption:='График функции Y=1/x';
end;