... B(5; 5) - Tính hệ số góc: m = (y2-y1)/(x2-x1) = ( 5-1 0)/( 5-1 5) = 1/2 (m ∈ (0; 1])Xa >Xb đổi chỗ cho A và B > A(5,5), B(15,10)Dx = x2 - x1 = 10Dy = y2 - y1 = 5P = 2dy - dx = 10 - 10 = ... khungnhin(x1,y1,x2,y2:integer);BeginXv1:=x1;Xv2:=x2;Yv1:=y1;Yv2:=y2;Tlx:=(xv2-xv1)/(xw2-xw1);Tly:=(yv2-yv1)/(yw2-yw1);End;Procedure chuyenhequansat(x,y:real; var x1,y1:integer);BeginX1:=round(tlx*(x-xw1)+xv1);Y1:=round(tly*(yw2-y)+yv1);End;Procedure ... X1:=x2; y1:=y2; X2:=x; y2:=y; End;Dx:=x2-x1; dy:=y2-y1;P:=2*dx-dy;Const1:=2*dx-2*dy;Const1:=2*dx;X:=x1;Y:=y1;Putpixel(x,y,red);y:=y+1;For i:=y1 to y2 do BeginIf (p>0 )then BeginX:=x+1;P:=p+const1;...