最短路徑問題
time limit:10000ms memory limit:65536k
total submit:283 accepted:150
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
5 0 0
2 0
2 2
0 2
3 1
5 1 2
1 3
1 4
2 5
3 5
1 5sample output
3.41
//先用勾股求出兩點之間的距離，然後再用floyd演算法
雖然有點大但是很簡單
var
map:array[-101..101,-101..101]of real;
dis,x,y:array[-10001..10001]of longint;
i,j,n,s,ans,k,cx,cy:longint;
begin
fillchar(map,sizeof(map),127);
readln(n);
for i:=1 to n do
begin
readln(x[i],y[i]);
end;
readln(s);
for i:=1 to s
do begin
readln(cx,cy);
map[cx,cy]:=sqrt(s
qr(x[cx]-x[cy])+s
qr(y[cx]-y[cy]));
map[cy,cx]:=sqrt(s
qr(x[cx]-x[cy])+s
qr(y[cx]-y[cy]));
end;
read(cx,cy);
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
ifmap[i,k]+map[k,j]map[i,j]:=map[i,k]+map[j,k]
end;
write(map[cx,cy]:0:2);
end.
最短路 最短路徑問題
題目描述 平面上有n個點 n 100 每個點的座標均在 10000 10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點直線的距離。現在的任務是找出從一點到另一點之間的最短路徑。input 共有n m 3行，其中 第一行為乙個整數n。第2行...
Codeup最短路徑 最短路徑問題
給你n個點，m條無向邊，每條邊都有長度d和花費p，給你起點s終點t，要求輸出起點到終點的最短距離及其花費，如果最短距離有多條路線，則輸出花費最少的。輸入n,m，點的編號是1 n,然後是m行，每行4個數 a,b,d,p，表示a和b之間有一條邊，且其長度為d，花費為p。最後一行是兩個數 s,t 起點s，...
最短路徑之最短路徑問題
提交 狀態 討論版 命題人 外部匯入 題目描述 平面上有n個點 n 100 每個點的座標均在 10000 10000之間。其中的一些點之間有連線。若有連線，則表示可從乙個點到達另乙個點，即兩點間有通路，通路的距離為兩點間的直線距離。現在的 任務是找出從一點到另一點之間的最短路徑。輸入共n m 3行，...