description
平面上有n個點(n<=100)，每個點的座標均在-10000~10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點直線的距離。現在的任務是找出從一點到另一點之間的最短路徑。
input
輸入檔案short.in，共有n+m+3行，其中：
第一行為乙個整數n。
第2行到第n+1行（共n行），每行的兩個整數x和y，描述乙個點的座標(以乙個空格隔開)。
第n+2行為乙個整數m，表示圖中的連線個數。
此後的m行，每行描述一條連線，由兩個整數i,j組成，表示第i個點和第j個點之間有連線。
最後一行：兩個整數s和t，分別表示源點和目標點。
output
輸出檔案short.out僅一行，乙個實數(保留兩位小數)，表示從s到t的最短路徑的長度。
sample input
50 0
2 02 2
0 23 1
51 2
1 31 4
2 53 5
1 5
sample output
3.41
分析 先算出點與點之間的距離
距離=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))
從s開始算最短路徑，最後輸出d[t]就行了
varn,i,m,s,t,x1,y1:longint;
a:array[0..200,0..200]of real;
x,y:array[0..200]of longint;
mark:array[0..200]of boolean;
d:array[0..200]of real;
pre:array[0..200]of longint;
procedure dij;
vari,j,u:longint;
min:real;
begin
fillchar(mark,sizeof(mark),false);
mark[s]:=true;
for i:=1 to n do
begin
d[i]:=a[s,i];
if a[s,i]<>127 then pre[i]:=s else pre[i]:=0;
end;
repeat
u:=0;min:=maxlongint;
for i:=1 to n do
if (not mark[i])and(d[i]0 then
begin
mark[u]:=true;
for i:=1 to n do
if (not mark[i])and(d[u]+a[u,i]
最短路徑問題（Dijkstra）
一 基本概念 從起點出發找一條到達目的地的 邊權和最小的路徑，這就是單元最短路問題。在最短路問題中，給出的是乙個有向加權圖g v,e 邊的權值是某種物理物件的度量標準，不一定是距離，它可以是時間，金錢，罰款，損失或任何其他路徑線性積累的數量形式。路徑p v0,v1,vk 的權是指其組成邊的所有權值之...
最短路徑問題（Dijkstra）
給你n個點，m條無向邊，每條邊都有長度d和花費p，給你起點s終點t，要求輸出起點到終點的最短距離及其花費，如果最短距離有多條路線，則輸出花費最少的。input 輸入n,m，點的編號是1 n,然後是m行，每行4個數 a,b,d,p，表示a和b之間有一條邊，且其長度為d，花費為p。最後一行是兩個數 s,...
最短路徑問題 Dijkstra
題目見 題目題目題目 解題思路 dijkstra是根據 白 點迴圈的，由第乙個白點 起始點 搜尋每一條邊，如果小於了原值就按照這乙個白點所連線的邊更新，找出所連線的最小值，那麼這乙個點就是下乙個白點。一直迴圈迴圈迴圈。所以這個會求出輸入的s 起始點 連線所有點的最小距離，但是不可以求出帶有負權值的圖...