演算法：最短路
求兩遍最短路，乙個是從起點走向終點，另乙個從終點走向起點，記錄下每次走每個點的最短路，然後列舉一遍，對於每個點，找乙個最大的最短路看能否更新min。
program p1356;
const
maxn=10000;
type
atp=record
y,dis,next:longint;
end;
var head,tail,n,m,tot,st,ed:longint;
b:array [0..maxn] of boolean;
first,que:array [0..maxn] of longint;
v:array [0..1,0..maxn] of longint;
map:array [0..maxn] of atp;
procedure init;
var i,x,y,dis:longint;
begin
fillchar(v,sizeof(v),100);
readln(n,m);
for i:=1 to m do
begin
readln(x,y,dis);
inc(tot);
map[tot].y:=y;
map[tot].dis:=dis;
map[tot].next:=first[x];
first[x]:=tot;
inc(tot);
map[tot].y:=x;
map[tot].dis:=dis;
map[tot].next:=first[y];
first[y]:=tot;
end;
readln(st,ed);
end;
procedure spfa(x:longint);
var t:longint;
begin
fillchar(b,sizeof(b),false);
fillchar(que,sizeof(que),0);
if x=0 then
begin
v[x,st]:=0;
que[1]:=st;
b[st]:=true;
endelse
begin
v[x,ed]:=0;
que[1]:=ed;
b[ed]:=true;
end;
head:=0;
tail:=1;
while head0 do
begin
if v[x,que[head]]+map[t].disy then exit(x) else exit(y);
end;
procedure outit;
var min,i:longint;
begin
min:=maxlongint;
for i:=1 to n do if max(v[0,i],v[1,i])
8 12 騰訊大戰360 2133
資料範圍 每組都是n 5000 m 5000 並且保證運算過程中的所有值都不會超過117901063 輸出只有一行，d，表示二者 相遇 的最短時間。當然，如果無法相遇則輸出 peace 一道很水很水的，spfa 嗯，真的很水 至於為什麼早上沒過，純屬傻了 明明只用做一遍的東西，為什麼做了n遍？是嫌時...
騰訊與360大戰
致廣大qq使用者的一封信 親愛的qq使用者 當您看到這封信的時候，我們剛剛作出了乙個非常艱難的決定。在360公司停止對qq進行外掛程式侵犯和惡意詆毀之前，我們決定將在裝有360軟體的電腦上停止執行qq軟體。我們深知這樣會給您造成一定的不便，我們誠懇地向您致歉。同時也把作出這一決定的原因寫在下面，盼望...
SSL ZYC 2133 騰訊大戰360
題目大意 兩個人分別在s和e這兩個點上，已知兩人可以同時行走，且他們的相遇地必須是乙個點 不能在路上相遇 那麼他們最短相遇時間是多少？思路 這道題很明顯是一道並查集 最短路問題。先用並查集求出兩點之間是否有通路，再跑兩次dij，列舉每乙個點，求出他們兩人中用時較長的最小值。這道題也可以用spfa。而...