... Begin D(i -1); x:=x-h; lineto(x,y); A(i -1); y:=y-h; lineto(x,y); A(i -1); x:=x+h; lineto(x,y); B(i -1); End End; Procedure B; Begin If i>0 then Tµi liÖu chuyªn Tin 11 15 Begin C(i -1); y:=y+h; ... lineto(x,y); B(i -1); x:=x+h; lineto(x,y); B(i -1); y:=y-h; lineto(x,y); A(i -1); End End; Procedure C; Begin If i>0 then Begin B(i -1); x:=x+h; lineto(x,y); C(i -1); y:=y+h; lineto(x,y); C(i -1); x:=x-h; ... x:=x-h; lineto(x,y); D(i -1); End End; Procedure D; Begin If i>0 then Begin A(i -1); y:=y-h; lineto(x,y); D(i -1); x:=x-h; lineto(x,y); D(i -1); y:=y+h; lineto(x,y); C(i -1); End End; BEGIN Gd :=...