... PHẦN PHỤ LỤCPhụ lục 1Unit chứa khai báo các cấu trúc dữ liệu cho đồ thị và cài đặt thủ tục tìm đường đi ngắn nhất theo thuật toán unit Func_DoThi;interfacetype TypeToaDo=record ... i:=i-1;141If st[i]='.' then i:=i-1;delete(St,i+1,L-i);end;Function Quay(P,Tam:TypeToaDo;Goc:Real):TypeToaDo;Var Q:TypeToaDo;beginGoc:=Goc*Pi/180;P.x:=P.x-Tam.x;P.y:=P.y-Tam.y;Q.x:=Round(P.x*Cos(goc)-P.y*Sin(goc));Q.y:=Round(P.x*Sin(goc)+P.y*Cos(goc));Q.x:=Q.x+Tam.x;Q.y:=Q.y+Tam.y;Quay:=Q;end;procedure ... exit;TL:=BanKinh/L;Q1.X:=round(T1.x+DX*TL);Q1.Y:=round(T1.y+DY*TL);Q2.X:=round(T2.x-DX*TL);Q2.Y:=round(T2.y-DY*TL);T1:=Q1;T2:=Q2;DX:=T2.x-T1.x;DY:=T2.y-T1.y;L:=sqrt(DX*DX+DY*DY);If L=0 then exit;TL:=RMuiTen/L;P.X:=round(T2.x-DX*TL);P.Y:=round(T2.y-DY*TL);Q1:=Quay(P,T2 ,-3 5);Q2:=Quay(P,T2,35);pic.Canvas.Brush.Style:=bsSolid;pic.Canvas.Brush.Color:=LineColor;pic.Canvas.Pen.Color:=LineColor;If...