Description
一个无向图上,没有自环,所有边的权值均为1,对于一个点对(a,b),我们要把所有a与b之间所有最短路上的点的总个数输出。
Input
第一行n,m,表示n个点,m条边
接下来m行,每行两个数a,b,表示a,b之间有条边
在下来一个数p,表示问题的个数
接下来p行,每行两个数a,b,表示询问a,b
Output
对于每个询问,输出一个数c,表示a,b之间最短路上点的总个数
Sample Input
5 6
1 2
1 3
2 3
2 4
3 5
4 5
3
2 5
5 1
2 4
Sample Output
4
3
2
Hint
范围:n<=100,p<=5000
思路:
较水。先用floyd求两两点最短路,枚举并找到两条路权值相加等于第三条路的权值的点累计数组s。比较坑爹的是要算上起始点和结束点,机智如我仍然wa几多。
源代码:
var
f,s:array[1..100,1..100]of longint;
n,m:longint;
procedure init;
var
i,j,x,y:longint;
begin
fillchar(f,sizeof(f),$7f div 3);
readln(n,m);
for i:=1 to m do
begin
readln(x,y);
f[x,y]:=1;
f[y,x]:=1;
end;
end;
procedure main;
var
i,j,k:Longint;
begin
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if (i<>j)and(k<>i)and(j<>k)and(f[i,k]+f[k,j]<f[i,j]) then
f[i,j]:=f[i,k]+f[k,j];
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if (i<>j)and(k<>i)and(j<>k)and(f[i,k]+f[k,j]=f[i,j]) then
inc(s[i,j]);
end;
procedure print;
var
i,t,x,y:Longint;
begin
readln(t);
for i:=1 to t do
begin
readln(x,y);
writeln(s[x,y]+2);
end;
end;
begin
init;
main;
print;
end.