最短路径问题(dijkstra)

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

分析

先算出点与点之间的距离

距离=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))

从s开始算最短路径，最后输出d[t]就行了

var
n,i,m,s,t,x1,y1:longint;
a:array[0..200,0..200]of real;
x,y:array[0..200]of longint;
mark:array[0..200]of boolean;
d:array[0..200]of real;
pre:array[0..200]of longint;
procedure dij;
var
i,j,u:longint;
min:real;
begin
    fillchar(mark,sizeof(mark),false);
    mark[s]:=true;
    for i:=1 to n do
    begin
        d[i]:=a[s,i];
        if a[s,i]<>127 then pre[i]:=s else pre[i]:=0;
    end;
    repeat
         u:=0;min:=maxlongint;
         for i:=1 to n do
         if (not mark[i])and(d[i]<min) then
         begin
             u:=i;
             min:=d[i];
         end;
         if u<>0 then
         begin
             mark[u]:=true;
             for i:=1 to n do
             if (not mark[i])and(d[u]+a[u,i]<d[i]) then
             begin
                 d[i]:=d[u]+a[u,i];
                 pre[i]:=u;
             end;
         end;
    until u=0;
end;




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,y1);
        a[x1,y1]:=sqrt(sqr(x[x1]-x[y1])+sqr(y[x1]-y[y1]));
        a[y1,x1]:=a[x1,y1];
    end;
    read(s,t);
    dij;
    write(d[t]:0:2);
end.