[BZOJ2015][Usaco2010 Feb]Chocolate Giving

原创 2015年07月11日 08:31:10

[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.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

2015: [Usaco2010 Feb]Chocolate Giving

2015: [Usaco2010 Feb]Chocolate Giving Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 428  Solved...

bzoj 2015: [Usaco2010 Feb]Chocolate Giving

→题目链接← 从编号为1的点跑spfa,然后把两个点到1的距离加一起就好了 大水题 #include #include #include #include using namespace std; ...

USACO 2010 Feb Chocolate Giving 领取巧克力

这道题其实就是堆优化的Dijkstra。不用堆优化的话是会超时的。 #include #include #define PROBNAME "cgiving" const int MAXN=500...

【USACO FEB 2010 SILVER】吃巧克力(Chocolate Eating)

【USACO FEB 2010 SILVER】吃巧克力 时间限制: 1 Sec  内存限制: 128 MB 题目描述     Bessie拿到了N (1      每块巧克力有一...

BZOJ 3939 [Usaco2015 Feb] Cow Hopscotch

线段树+DP

【bzoj 3942】[Usaco2015 Feb]Censoring(栈+kmp)

就砚旋研墨.渐写到别来

BZOJ3939 BSOJ4853 【USACO 2015 FEB GOLD 】cow hopscotch

4853 -- 【USACO 2015 FEB GOLD 】cow hopscotch Description 就像人类喜欢玩“跳房子”的游戏,农民约翰的奶牛已经发明了该游戏的一个变种自己玩。由于笨拙...
  • moep0
  • moep0
  • 2016-10-04 16:57
  • 380

【Usaco2015 Feb】【BZOJ3943】SuperBull

Description Bessie and her friends are playing hoofball in the annual Superbull championship, and F...

BZOJ 3940 Usaco2015 Feb Censoring AC自动机

题目大意:给定一个字符串A和一些模板串,要求删除A中所有的模板串后输出 同3942,由于是多串所以把KMP换成AC自动机即可 #include #include #include #incl...

BZOJ 3939 [Usaco2015 Feb]Cow Hopscotch 线段树

BZOJ 3939 [Usaco2015 Feb]Cow Hopscotch 线段树
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)