SSL 1613——最短路径问题（最短路）

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

一眼望去n<=100便果断的写了Floyd的算法。

两点之间的距离公式为：sqrt(sqr(x1-x2)+sqr(y1-y2))

然后这题就水出来了

代码如下：

var  n,i,j,k,x1,x2,m,t,s:longint;
min,ans:real;
a:array[0..101,0..101]of real;
v,x,y:array[0..101]of longint;
l:array[0..101]of real;
begin
readln(n);
for i:=1 to n do readln(x[i],y[i]);
readln(m);
fillchar(a,sizeof(a),127);
for i:=1 to m do
begin
readln(x1,x2);
a[x1,x2]:=sqrt(sqr(x[x1]-x[x2])+sqr(y[x1]-y[x2]));
a[x2,x1]:=a[x1,x2];
end;
readln(s,t);
ans:=0;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if a[j,i]+a[k,i]<a[j,k] then a[j,k]:=a[j,i]+a[k,i];
write(a[s,t]:0:2);
end.