工厂的烦恼

最新推荐文章于 2020-09-20 22:27:41 发布

gjdsjflsk

最新推荐文章于 2020-09-20 22:27:41 发布

阅读量430

点赞数

分类专栏：图论

本文链接：https://blog.csdn.net/ssl_TRX/article/details/68951451

版权

图论专栏收录该内容

13 篇文章 0 订阅

订阅专栏

工厂的烦恼

Time Limit:10000MS Memory Limit:65536K
Total Submit:100 Accepted:64
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

Source

elba

var
  f:array[0..502,0..502] of longint;
  n,m,i,j,k,x,y:longint;
begin
  readln(n,m);
  for i:=1 to n do
    for j:=1 to n do
      f[i,j]:=-1000000;
  for i:=1 to m do
    begin
      read(x,y);
      readln(f[x,y]);
    end;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if (i<>j)and(j<>k)and(i<>k) then
          if f[i,k]+f[k,j]>f[i,j] then
            f[i,j]:=f[i,k]+f[k,j];
  x:=-maxlongint;
  for i:=1 to n do
    for j:=i+1 to n do
      if (i<>j)and(f[i,j]>x) then x:=f[i,j];
  writeln(x);
end.