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 5
Sample Output
3.41
先用勾股定理求出相连点的距离,然后floyd
var
x,y:array [0..101] of longint;
f:array [0..101,0..101] of extended;
i,j,k,n,m,p,q,aa,bb:longint;
begin
readln(n);
for i:=1 to n do readln(x[i],y[i]);
for i:=1 to n do
for j:=1 to n do f[i,j]:=maxlongint;
readln(m);
for i:=1 to m do
begin
readln(aa,bb);
f[aa,bb]:=sqrt(abs(x[aa]-x[bb])*abs(x[aa]-x[bb])+abs(y[aa]-y[bb])*abs(y[aa]-y[bb]));
f[bb,aa]:=f[aa,bb];
end;
readln(p,q);
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if (i<>j) and (j<>k) and (i<>k) and (f[i,k]+f[k,j]<f[i,j]) then
f[i,j]:=f[i,k]+f[k,j];
writeln(f[p,q]:0:2);
end.