最短路径问题

最短路径问题

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 5

Sample 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(sqr(x[cx]-x[cy])+sqr(y[cx]-y[cy]));
   map[cy,cx]:=sqrt(sqr(x[cx]-x[cy])+sqr(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
     if map[i,k]+map[k,j]<map[i,j] then
      map[i,j]:=map[i,k]+map[j,k]
    end;
 write(map[cx,cy]:0:2);
end.