[BZOJ2015][Usaco2010 Feb]Chocolate Giving

[Usaco2010 Feb]Chocolate Giving

时间限制: 1 Sec 内存限制: 128 MB

题目描述

Farmer John有B头奶牛(1<=B<=25000)，有N(2*B<=N<=50000)个农场，编号1-N，有M(N-1<=M<=100000)条双向边，第i条边连接农场R_i和S_i(1<=R_i<=N;1<=S_i<=N)，该边的长度是L_i(1<=L_i<=2000)。居住在农场P_i的奶牛A(1<=P_i<=N)，它想送一份新年礼物给居住在农场Q_i(1<=Q_i<=N)的奶牛B，但是奶牛A必须先到FJ(居住在编号1的农场)那里取礼物，然后再送给奶牛B。你的任务是：奶牛A至少需要走多远的路程？

输入

第1行：三个整数：N,M,B。

第2..M+1行：每行三个整数：R_i,S_i和L_i，描述一条边的信息。

第M+2..M+B+1行：共B行，每行两个整数P_i和Q_i，表示住在P_i农场的奶牛送礼物给住在Q_i农场的奶牛。　　

输出

共B行，每行一个整数，表示住在P_i农场的奶牛送礼给住在Q_i农场的奶牛至少需要走的路程

样例输入

6 7 3
1 2 3
5 4 3
3 1 1
6 1 9
3 4 2
1 4 4
3 2 2
2 4
5 1
3 6

样例输出

6
6
10

var w:array[0..200005,1..3]of longint; t:array[0..100005]of longint; dist,p:array[0..50005]of longint; i,j,k:longint; n,m,s:longint; a,b,c:longint; tt,ans,head,tail,x,y:longint;procedure spfa;var a,i:longint;begin a:=1; for i:=1 to n do  dist[i]:=50000000; dist[a]:=0; p[a]:=1; head:=1; tail:=2; t[1]:=a; while head<tail do  begin   x:=head; y:=tail;   for i:=x to y-1 do    begin     tt:=w[t[i],3];     while tt<>0 do      begin       if dist[t[i]]+w[tt,2]<dist[w[tt,1]]       then        begin         dist[w[tt,1]]:=dist[t[i]]+w[tt,2];         if p[w[tt,1]]=0 then begin p[w[tt,1]]:=1; t[tail]:=w[tt,1]; inc(tail); end;        end;       tt:=w[tt,3];      end;     inc(head); p[t[i]]:=0;    end;   x:=head; y:=tail;  end;end;begin readln(n,m,s); w[0,1]:=n+1; for i:=1 to m do  begin   readln(a,b,c);   w[w[0,1],1]:=b; w[w[0,1],2]:=c;   if w[a,3]=0   then w[a,3]:=w[0,1] else w[w[a,1],3]:=w[0,1];   w[a,1]:=w[0,1]; inc(w[0,1]);   w[w[0,1],1]:=a; w[w[0,1],2]:=c;   if w[b,3]=0   then w[b,3]:=w[0,1] else w[w[b,1],3]:=w[0,1];   w[b,1]:=w[0,1]; inc(w[0,1]);  end; spfa; for i:=1 to s do  begin   readln(a,b);   ans:=dist[a]+dist[b];   writeln(ans);  end;end.