nhanbiet hinhtamgiac hinhchu nhat

Đường đi ngắn nhất trong đồ thị.DOC

Đường đi ngắn nhất trong đồ thị.DOC

Ngày tải lên : 21/08/2012, 16:16
... +1; End; d[s]:=0; MinOk[s]:=True; u:=s; {Buoc dau dinh goc la hat nhat cho dieu chinh} While not MinOk[t] Begin {Tim duong di ngan nhat} {Xac lap va dieu chinh d(s,u)} For v:=1 to n if not MinOk[v] ... (a[u,v]0) and (d[u] + a[u,v] < d[v]) Then Begin d[v] := d[u] + a[u,v]; Truoc[v]:= u; {Nho duong di ngan nhat} End; {Tim dinh u co d(s,u) la min} Mind:=MaxInt; For v:=1 to n If (not MinOk[v]) And (Mind>d[v]) ... then Break; {Tac duong} End; End; Procedure Result; Var i: Integer; Begin Writeln('Duong di ngan nhat tu ',s,' Den ',t); i:=Truoc[t]; If i = n + then Begin 54 Luận văn tốt nghiệp Phan Thanh Long...
  • 14
  • 1.5K
  • 6

Xem thêm