1043 【图论基础】求一个无向图的最短路径(dijkstra) 1044 有向图中任意两点最短路径(floyd)

【图论基础】求一个无向图的最短路径（dijkstra）
Time Limit:10000MS Memory Limit:65536K
Total Submit:112 Accepted:46
Description
一个含n个结点的无向图，以矩阵存储方式给出，请求出指定的两个点之间的最短距离。

Input
第一行，一个整数n（0 < n < 1000 ），表示无向图中结点的个数。

接下来是一个n*n的矩阵，表示无向图中各结点之间的联结情况，矩阵中的数值为小于等于1000的下整数，其中0 表示两点之间无直接连接。

最后一行，两个整数i,j。

表示求解i点到j点的最短距离。

Output
一个数值，表示指定的两点之间最短距离。

Sample Input
2
0 2
2 0
1 2
Sample Output
2
Source
∙var
∙ i,j,k,n,min:longint;
∙ x,y:longint;
∙ a:array[1..1000,1..1000] of longint;
∙ b:array[1..1000] of longint;
∙ c:array[1..1000] of boolean;
∙begin
∙ readln(n);
∙ for i:=1 to n do
∙ for j:=1 to n do read(a[i,j]);
∙ readln(x,y);
∙ fillchar(c,sizeof(c),0);
∙ fillchar(b,sizeof(b),$7);
∙ k:=x; b[x]:=0;
∙ for i:=1 to n-1 do begin
∙ c[k]:=true;
∙ for j:=1 to n do
∙ if (a[k,j]<>0) and not c[j] and (a[k,j]+b[k]<b[j]) then ∙ b[j]:=a[k,j]+b[k];
∙ min:=maxlongint; k:=0;
∙ for j:=1 to n do if (b[j]<min) and not c[j] then begin ∙ min:=b[j]; k:=j;
∙ end;
∙ end;
∙ writeln(b[y]);
∙end.
【图论基础】有向图中任意两点最短路径（floyd）
Time Limit:10000MS Memory Limit:65536K
Total Submit:69 Accepted:35
Description
一个含n个结点的有向图（注意：是有向图！！），以矩阵存储方式给出，请求出指定的多组两个点之间的最短距离及其最短路径。

Input
第1行，一个整数n（0 < n < 300 ），表示有向图中结点的个数。

第2行到第（n+1）行，是一个n*n的矩阵，表示无向图中各结点之间的联结情况，矩阵中的数据为小于1000的正整数，其中-1 表示无穷大！！
第（n+2）行，一个整数m，表示接下来有m组顶点< i , j >对，其中，i 是起点，j是终点，且i不等于j。

接下来有m行，每行两个整数，中间一个空格间隔，分别表示i和j，表示求解i点到j点的最短距离及最短路径。

注：输入数据已经确保答案每一组顶点间的最短路径是唯一的，无多解数据存在，顶点编号用数字表示，从1开始编号，至n结束！
Output
共2m 行。

第(m-1)*2+1行，一个整数，表示第m组顶点的最短距离，若两点间距离为无穷大，则输出-1。

第(m-1)*2+2行，用顶点编号表示的路径序列，各顶点编号间用一个空格间隔，表示第m组顶点的最短路径，若两点间距离为无穷大，则输出的路径序列为-1。

Sample Input
3
0 4 11
6 0 2
3 -1 0
2
2 1
3 2
Sample Output
5
2 3 1
7
3 1 2
Source
虽然我不会用floyd 写，但这还是一种方法~~~
∙var
∙ i,j,k,z,n,m,x,y,min:longint;
∙ a:array[1..300,1..300] of longint;
∙ d,f:array[1..300] of longint;
∙ e:array[1..300] of boolean;
∙procedure dfs(y:longint);
∙begin
∙ if f[y]<>0 then dfs(f[y]);
∙ write(y,' ');
∙end;
∙
∙begin
∙ readln(n);
∙ for i:=1 to n do
∙ for j:=1 to n do read(a[i,j]);
∙ readln(m);
∙ for z:=1 to m do begin
∙ readln(x,y);
∙ fillchar(d,sizeof(d),$7);
∙ fillchar(e,sizeof(e),0);
∙ fillchar(f,sizeof(f),0);
∙ k:=x; d[x]:=0;
∙ for i:=1 to n-1 do begin
∙ e[k]:=true;
∙ for j:=1 to n do if a[k,j]>0 then
∙ if (d[k]+a[k,j]<d[j]) and not e[j] then begin
∙ d[j]:=d[k]+a[k,j]; f[j]:=k;
∙ end;
∙ min:=maxlongint; k:=0;
∙ for j:=1 to n do if not e[j] and (min>d[j]) then begin ∙ min:=d[j]; k:=j;
∙ end;
∙ if k=0 then break;
∙ end;
∙ if d[y]<10000000 then begin
∙ writeln(d[y]);
∙ dfs(y);
∙ writeln;
∙ end
∙ else begin
∙ writeln(-1); writeln(-1);
∙ end
∙ end ∙end.。