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 n,i,j,k,x1,x2,m,t,s:longint;
min,ans:real;
f:array[0..101,0..101]of real;
a,b:array[0..101]of longint;
begin
readln(n);
for i:=1 to n do readln(a[i],b[i]);
readln(m);
fillchar(f,sizeof(f),127);
for i:=1 to m do
begin
readln(x1,x2);
f[x1,x2]:=sqrt(sqr(a[x1]-a[x2])+sqr(b[x1]-b[x2]));
f[x2,x1]:=f[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 (i<>j) and (j<>k) and (i<>k) and (f[j,i]+f[i,k]<f[j,k]) then f[j,k]:=f[j,i]+f[i,k];
write(f[s,t]:0:2);
end.
DIJ:
const
maxn=101;
var
a:array[1..maxn,1..2] of longint;
v:array[1..maxn] of boolean;
c:array[1..maxn] of real;
f:array[1..maxn,1..maxn] of real;
n,i,j,k,x,y,m,s,t:longint;
min:real;
begin
readln(n);
for i:=1 to n do read(a[i,1],a[i,2]);
readln(m);
fillchar(f,sizeof(f),$5f);
for i:=1 to m do
begin
readln(x,y);
f[x,y]:=sqrt(sqr(a[x,1]-a[y,1])+sqr(a[x,2]-a[y,2]));
f[y,x]:=f[x,y];
end;
readln(s,t);
for i:=1 to n do
c[i]:=f[s,i];
for i:=1 to n-1 do
begin
min:=maxlongint;
k:=0;
for j:=1 to n do
if (not v[j]) and (c[j]<min)
then begin
min:=c[j];
k:=j;
end;
if k=0 then break;
v[k]:=true;
for j:=1 to n do
if c[k]+f[k,j]<c[j] then c[j]:=c[k]+f[k,j];
end;
writeln(c[t]:0:2);
end.
最短路径问题-SSL 1613
最新推荐文章于 2021-05-18 14:27:07 发布