首页 > 代码库 > 信使(msner)
信使(msner)
Description
战争时期,前线有n 个哨所,每个哨所可能会与其他若干个哨所之间有通信联系。信使负责 在哨所之间传递信息,当然,这是要花费一定时间的(以天为单位)。指挥部设在第一个哨所。当指挥部下达一个命令后,指挥部就派出若干个信使向与指挥部相连 的哨所送信。当一个哨所接到信后,这个哨所内的信使们也以同样的方式向其他哨所送信。直至所有n个哨所全部接到命令后,送信才算成功。因为准备充足,每个 哨所内都安排了足够的信使(如果一个哨所与其他k个哨所有通信联系的话,这个哨所内至少会配备k个信使)。
现在总指挥请你编一个程序,计算出完成整个送信过程最短需要多少时间。
Input
输入文件 msner.in,第 1 行有两个整数 n 和m,中间用 1 个空格隔开,分别表示有 n 个 哨所和m条通信线路。1<=n<=100。 第 2 至 m+1行:每行三个整数 i、j、k,中间用 1 个空格隔开,表示第 i 个和第 j 个哨所 之间存在通信线路,且这条线路要花费k天。
Output
输出文件msner.out,仅一个整数,表示完成整个送信过程的最短时间。如果不是所有的 哨所都能收到信,就输出-1。
Sample Input
4 4
1 2 4
2 3 7
2 4 1
3 4 6
Sample Output
11
直接floyed,只要求出从1点到若干个点花费最多的就是了ans=max{dis[i]};
1 program test; 2 const 3 inf=‘msner.in‘; 4 outf=‘msner.out‘; 5 6 var 7 n,m,i,j,k,a,b,maxx:longint; 8 f:array[1..100,1..100] of longint; 9 10 function min(aa,bb:longint):longint;11 begin12 if aa<bb then exit(aa)13 else exit(bb);14 end;15 16 begin17 assign(input,inf);18 assign(output,outf);19 reset(input);20 rewrite(output);21 22 readln(n,m);23 24 for i:= 1 to n do25 for j:= 1 to n do26 if i<>j then f[i,j]:=maxlongint div 2;27 28 for i:= 1 to m do29 begin30 readln(a,b,k);31 f[a,b]:=k;32 f[b,a]:=k;33 end;34 35 for k:= 1 to n do36 for i:= 1 to n do37 for j:= 1 to n do38 f[i,j]:=min(f[i,j],f[i,k]+f[k,j]);39 40 maxx:=-maxlongint;41 42 43 for j:= 1 to n do44 if f[1,j]<>maxlongint div 2 then45 if maxx<f[1,j] then maxx:=f[1,j];46 47 48 writeln(maxx);49 50 close(input);51 close(output);52 end.
信使(msner)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。