最短路徑問題
time limit:10000ms memory limit:65536k
total submit:312 accepted:160
case time limit:1000ms
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
source
elba
vara:array[0..1000,0..1000]of real;
l:array[0..1000]of real;//起點到每個點的總距離
z:array[0..1000,1..2]of longint;
v:array[0..1000]of boolean;
n,m,x,y,s,t,i,j,k:longint;
min:real;
begin
readln(n);
for i:=1 to n do readln(z[i,1],z[i,2]);
readln(m);
fillchar(a,sizeof(a),$7f);
for i:=1 to m do
begin
read(x,y);
a[x,y]:=sqrt(sqr(z[x,1]-z[y,1])+sqr(z[x,2]-z[y,2]));//求他們之間的距離
a[y,x]:=a[x,y];//無向圖
end;
read(s,t);
fillchar(v,sizeof(v),true);
v[s]:=false;
for i:=1 to n do l[i]:=a[s,i];//目前從起點到每個點的最小值
for i:=1 to n do
begin
min:=maxlongint;//方便比較
for j:=1 to n do
if (v[j])and(l[j]0 then//如果目前這個點可以有更小走到其它點的距離
begin
v[k]:=false;//走過了
for j:=1 to n do
if (v[j])and(l[j]>a[k,j]+l[k]) then l[j]:=l[k]+a[k,j];//有點像狀態轉移
end;
end;
write(l[t]:0:2);//輸出到終點的最短路徑
end.
ssl1613最短路徑問題
description 平面上有n個點 n 100 每個點的座標均在 10000 10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點直線的距離。現在的任務是找出從一點到另一點之間的最短路徑。input 輸入檔案short.in，共有n m...
最短路徑問題 SSL 1613
平面上有n個點 n 100 每個點的座標均在 10000 10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點直線的距離。現在的任務是找出從一點到另一點之間的最短路徑。輸入檔案short.in，共有n m 3行，其中 第一行為乙個整數n。第...
SSL 1613最短路徑問題
time limit 1000ms memory limit 65536k 平面上有n個點 n 100 每個點的座標均在 10000 10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點直線的距離。現在的任務是找出從一點到另一點之間的最短路...