Алгоритм Брезенхема

{$R *.dfm}
function F(x:real):real; //функция
begin
F:=x*x*x;
end;
//процедура рисования отрезка по Брезенхему
procedure drawLine(x1, y1, x2, y2: integer;cv:TCanvas);
var  currentX, currentY: integer;
     errorX, errorY: integer;
    d, dx, dy, incX, incY: integer;
begin
  dx := x2 - x1;
  dy := y2 - y1;
  errorX := 0;
  errorY := 0;
  if(dx > 0) then incX := 1
    else if(dx = 0) then incX := 0
      else incX := -1;
  if(dy > 0) then incY := 1
    else if(dy = 0) then incY := 0
      else incY := -1;
  dx := abs(dx);
  dy := abs(dy);
  if(dy > dx) then d := dy
    else d := dx;
  currentX := x1;
  currentY := y1;
  cv.Pixels[currentX, currentY]:=clRed;
  while((currentX <> x2) OR (currentY <> y2)) do
   begin
    errorX := errorX + dx;
    errorY := errorY + dy;
    if(errorX >= d) then
     begin
         errorX := errorX - d;
         currentX := currentX + incX;
     end;
    if(errorY >= d) then
     begin
         errorY := errorY - d;
         currentY := currentY + incY;
     end;
    cv.Pixels[currentX, currentY]:=clRed;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,w,h,i:integer;
    mx,my,dx,x:real;
begin
xc:=Image1.Width div 2;
yc:= Image1.Height div 2;
w:=xc*2;
h:=yc*2;
mx:=(w-50)/8;
my:=(h-40)/140;
with Image1.Canvas do
 begin
  Brush.Color:=clWhite;
  Pen.Color:=clBlack;
  MoveTo(0,yc);//линии осей
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  textout(w-20,yc-20,'X');//подпись концов
  textout(xc+5,10,'Y');
  textout(xc+10,yc+10,'0');
  for i:=1 to 7 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);//засечки на оси Х
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));//подписи
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my*10)); LineTo(xc-3,yc-round(i*my*10));//засечки по У
    MoveTo(xc+3,yc+round(i*my*10)); LineTo(xc-3,yc+round(i*my*10));
    textout(xc-30,yc-round(i*my*10),Inttostr(10*i));//подписи
    textout(xc-30,yc+round(i*my*10),Inttostr(-10*i));
   end;
 x:=-4;
 dx:=0.1;
 while x<=4 do
  begin
   drawLine(xc+round(x*mx),yc-round(f(x)*my),
            xc+round((x+dx)*mx),yc-round(f(x+dx)*my),Image1.Canvas);
   x:=x+dx;
  end;
 end;
end;

{$R *.dfm}
function F(x:real):real; //функция
begin
F:=sqrt(x);
end;
//процедура рисования отрезка по Брезенхему
procedure drawLine(x1, y1, x2, y2: integer;cv:TCanvas);
var  currentX, currentY: integer;
     errorX, errorY: integer;
    d, dx, dy, incX, incY: integer;
begin
  dx := x2 - x1;
  dy := y2 - y1;
  errorX := 0;
  errorY := 0;
  if(dx > 0) then incX := 1
    else if(dx = 0) then incX := 0
      else incX := -1;
  if(dy > 0) then incY := 1
    else if(dy = 0) then incY := 0
      else incY := -1;
  dx := abs(dx);
  dy := abs(dy);
  if(dy > dx) then d := dy
    else d := dx;
  currentX := x1;
  currentY := y1;
  cv.Pixels[currentX, currentY]:=clRed;
  while((currentX <> x2) OR (currentY <> y2)) do
   begin
    errorX := errorX + dx;
    errorY := errorY + dy;
    if(errorX >= d) then
     begin
         errorX := errorX - d;
         currentX := currentX + incX;
     end;
    if(errorY >= d) then
     begin
         errorY := errorY - d;
         currentY := currentY + incY;
     end;
    cv.Pixels[currentX, currentY]:=clRed;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,w,h,i:integer;
    mx,my,dx,x:real;
begin
xc:=50;
yc:=Image1.Height-50;
w:=Image1.Width-100;
h:=Image1.Height-100;
mx:=(w-50)/25;
my:=(h-40)/5;
with Image1.Canvas do
 begin
  Brush.Color:=clWhite;
  Pen.Color:=clBlack;
  MoveTo(0,yc);//линии осей
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,yc);
  textout(w,yc-20,'X');//подпись концов
  textout(xc+5,10,'Y');
  textout(xc,yc+10,'0');
  for i:=1 to 25 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);//засечки на оси Х
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));//подписи
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my)); LineTo(xc-3,yc-round(i*my));//засечки по У
    textout(xc-30,yc-round(i*my),Inttostr(i));//подписи
   end;
 x:=0;
 dx:=0.1;
 while x<=25 do
  begin
   drawLine(xc+round(x*mx),yc-round(f(x)*my),
            xc+round((x+dx)*mx),yc-round(f(x+dx)*my),Image1.Canvas);
   x:=x+dx;
  end;
 end;
end;