最短路径问题
来源:互联网 发布:java物流项目简历 编辑:程序博客网 时间:2024/06/05 15:12
最短路径问题
Time Limit:10000MS Memory Limit:65536K
Total Submit:304 Accepted:157
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
50 0 2 02 20 23 151 21 31 42 53 51 5
Sample Output
3.41
var a:array[0..1000,0..1000]of real; low,x,y:array[0..1000]of real; f:array[0..1000]of boolean; i,j,n,m,s,num,t,xx,yy:longint; min:real; ans:int64;begin fillchar(f,sizeof(f),true); readln(n); for i:=1 to n do readln(x[i],y[i]); readln(m); for i:=1 to m do begin read(xx,yy); a[xx,yy]:=sqrt(sqr(x[xx]-x[yy])+sqr(y[xx]-y[yy]));//勾股定理求距离 a[yy,xx]:=a[xx,yy];//无向图 end; read(s,t); f[s]:=false; for i:=1 to n do for j:=1 to n do if a[i,j]=0 then a[i,j]:=maxlongint; for i:=1 to n do low[i]:=a[s,i]; for i:=1 to n do begin min:=maxlongint; for j:=1 to n do//找最近的点 if (f[j])and(low[j]<min) then begin num:=j; min:=low[j]; end; if num<>0 then begin f[num]:=false; for j:=1 to n do//更新距离 if (f[j])and(a[num,j]<>maxlongint)and(low[j]>a[num,j]+low[num]) then low[j]:=low[num]+a[num,j]; end; end; write(low[t]:0:2);//输出到终点距离end.
3 0
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- 最短路径问题
- POJ 2105 IP Address G++
- ”Mac下bash_profile添加错误环境变量导致path涉及的命令全不能使用“的解决方案
- 层次遍历二插树
- 获取APP的版本号
- C语言的编码规范
- 最短路径问题
- Linux下线程互斥与同步
- JavaScript中JSON的解析与序列化
- SQL多表操作 内连接、外连接、交叉连接,(操作层面)学习笔记
- 商店选址问题
- 用css写个三角形
- 使用maven命令启动tomcat7
- 递归
- 设计模式:工厂模式