工厂的烦恼
2017-04-06 16:41
316 查看
工厂的烦恼
Time Limit:10000MS Memory Limit:65536K
Total Submit:72 Accepted:48
Case Time Limit:1000MS
Description
某工厂发现厂里的机器在生产产品时要消耗大量的原材料,也就是说,有大量的原材料变成了废物。因此厂里想找出消耗原材料最大的一条生产线路进行改造,以降低成本。厂里的生产线路是一个有向无环网络,有N台机器分别代表网络中的N个结点。弧< I,j >(i < j)表示原材料从机器i传输到机器j的损耗数量。
Input
第一行是两个整数N,M(N<=100,M<=1000),分别表示网络的结点个数和弧数。第二行至M+1行,每行三个整数A,B,C,表示弧上的损耗为C。
Output
仅一个整数,为损耗最大的线路的损耗量。
Sample Input
Sample Output
Time Limit:10000MS Memory Limit:65536K
Total Submit:72 Accepted:48
Case Time Limit:1000MS
Description
某工厂发现厂里的机器在生产产品时要消耗大量的原材料,也就是说,有大量的原材料变成了废物。因此厂里想找出消耗原材料最大的一条生产线路进行改造,以降低成本。厂里的生产线路是一个有向无环网络,有N台机器分别代表网络中的N个结点。弧< I,j >(i < j)表示原材料从机器i传输到机器j的损耗数量。
Input
第一行是两个整数N,M(N<=100,M<=1000),分别表示网络的结点个数和弧数。第二行至M+1行,每行三个整数A,B,C,表示弧上的损耗为C。
Output
仅一个整数,为损耗最大的线路的损耗量。
Sample Input
5 5 1 2 2 2 4 9 1 3 7 3 4 1 4 5 6
Sample Output
17
var a:array[1..101,1..101]of longint; i,j,k,n,x,y,z,m,s,max:longint; begin readln(n,m); for i:=1 to n do for j:=1 to n do a[i,j]:=-maxlongint div 3; for i:=1 to m do begin read(x,y); readln(a[x,y]); end; for k:=1 to n do for i:=1 to n do for j:=1 to n do if (a[i,k]+a[k,j]>a[i,j]) then a[i,j]:=a[i,k]+a[k,j]; max:=-maxlongint; for i:=1 to n do for j:=i+1 to n do if (a[i,j]>max)and(i<>j) then max:=a[i,j]; write(max); end.
相关文章推荐
- [bsoj1331] 工厂的烦恼
- 工厂的烦恼
- SSL1762工厂的烦恼
- SSL-ZYC 1616 1762 工厂的烦恼
- SSL P1762 工厂的烦恼
- SSL 1762——工厂的烦恼
- 工厂的烦恼
- 工厂的烦恼-SSL 1762
- 工厂的烦恼
- 文章标题SSL1762 工厂的烦恼
- 工厂的烦恼
- 【SSLGZ 1762】工厂的烦恼
- 工厂的烦恼
- (ssl 1762)工厂的烦恼
- 抽象工厂的代码实现示例
- 23设计模式之工厂方法(FactoryMethod)
- Java设计模式之简单工厂模式
- 检索 COM 类工厂中,出现以下错误: 8000401a
- 检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败,原因是出现以下错误: 80070005
- 设计模式-4-工厂方法模式