... 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 x,y:integer; ... TypeDanhSachDinh=array of TypeDinh; TypeCanh=record DinhDau,DinhCuoi:Integer;//Tham chieu trong danh sach Dinh TrongSo:TypeChiphi; end; TypeDanhSachCanh=Array of TypeCanh; TypeDoThi=Record SoDinh:Integer; ... TObject);begin//VeDoThi(G,Pic,imagelist1);DrawPaint(PaintBox1,Pic);end;Function TrongSo(DinhDau,DinhCuoi:Integer):TypeChiPhi;Var i:integer;beginTrongso.VoCung:=true;i:=0;While (i<=(G.SoCanh-1)) do If...