上学的道路 TYVJ1310

题目连接：http://new.tyvj.cn/Problem_Show.aspx?id=1310

主要是求2对点的最短路的公共部分最大是多少。

先瞎搞求出4个点的单源最短路。dij和spfa都可以。

然后对于任意两点i,j

如果d[x1,i]+d[y1,i]=d[x1,y1] 并且 d[x1,j]+d[y1,j]=d[x1,y1]  并且d[x2,i]+d[y2,i])=d[x2,y2]) 且 d[x2,j]+d[y2,j])=d[x2,y2] 

那么就可以判定I,J之间的在这两对点的最短路的公共部分，那么中间的那段部分就是公共长度了。

var
  x,y,x1,y1,x2,y2,ans,aa,i,j,k,z,n,m,tot:longint;
  v:array[-10..1600] of boolean;
  q:array[-10..1500000] of longint;
  d:array[-10..5,-10..1600] of longint;
  next,a,c:array[-10..600005] of longint;
  b:array[-10..1600] of longint;
procedure spfa(k,o:longint);
  var
    i,h,t,x,y,z,p:longint;
  begin
    for i:=1 to n do
	  d[k,i]:=999999999;
	d[k,o]:=0;

	h:=1;
	t:=1;
	q[h]:=o;
	fillchar(v,sizeof(v),true);
	v[o]:=false;
	while h<=t do
	  begin
	    x:=q[h];
		p:=b[x];
		while p<>0 do
		  begin
		    y:=c[p];
			z:=a[p];
			if (d[k,x]+z)<d[k,y] then
			  begin
			    d[k,y]:=d[k,x]+z;
				if v[y] then
				  begin
				    v[y]:=false;
					t:=t+1;
					q[t]:=y;
				  end;
			  end;
			p:=next[p];
		  end;
	    h:=h+1;
		v[x]:=true;
	  end;
  end;

function check(k,y,z:longint):boolean;
  begin
    if ((d[1,k]+d[2,y]+z)=d[1,y1]) and ((d[3,k]+d[4,y]+z)=d[3,y2]) then exit(true);
    if ((d[1,k]+d[2,y]+z)=d[1,y1]) and ((d[3,y]+d[4,k]+z)=d[3,y2]) then exit(true);
    exit(false);
  end;
function try(k:longint):longint;
  var
    t,p,x,y,z:longint;
  begin
    t:=0;
    v[k]:=false;
    p:=b[k];
	y:=c[p];
	z:=a[p];
	while p<>0 do
	  begin
	    if v[y] then
                  if check(k,y,z)  then
		    begin
			  x:=try(y)+z;
			  if x>ans then ans:=x;
			  if x>t then t:=x;
			end
		  else
		    if (d[1,k]+d[2,y]+z)=d[1,y1] then begin
		      x:=try(y);
			  if x>ans then ans:=x;
			end;
	    p:=next[p];
		y:=c[p];
	    z:=a[p];
	  end;
	v[k]:=true;
        if t>0 then exit(t) else exit(0);
  end;

begin
  read(n,m,x1,y1,x2,y2);
  tot:=0;
  for i:=1 to m do
    begin
	  read(x,y,z);
	  tot:=tot+1;
	  next[tot]:=b[x];
	  b[x]:=tot;
	  a[tot]:=z;
	  c[tot]:=y;

	  tot:=tot+1;
	  next[tot]:=b[y];
	  b[y]:=tot;
	  a[tot]:=z;
	  c[tot]:=x;

	end;
  spfa(1,x1);

  spfa(2,y1);
  spfa(3,x2);
  spfa(4,y2);
  fillchar(v,sizeof(v),true);
  ans:=0;
  for i:=1 to n do
    for j:=1 to n do
	  if ((d[1,i]+d[2,i])=d[1,y1]) and ((d[1,j]+d[2,j])=d[1,y1]) then
	    if ((d[3,i]+d[4,i])=d[3,y2]) and ((d[3,j]+d[4,j])=d[3,y2]) then
		  begin
	        x:=abs(d[1,i]-d[1,j]);
		    if x>ans then ans:=x;
		  end;	 
  writeln(ans);
end.

Oct_gap 201说得对。。

我太垃圾了

这个题因为数组开小了弄了半天。

我太垃圾了