(ssl1616)工厂的烦恼-优快云博客

本文链接：https://blog.youkuaiyun.com/SSL_lzx/article/details/69396936

本文介绍了一个寻找工厂中损耗原材料最多的生产线的问题，并提供了一段Pascal代码实现。通过构建有向无环图，利用动态规划算法求解损耗最大的路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

工厂的烦恼

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

CZM

var
 a:array[0..100,0..100]of longint;
 n,m,b,c,d,i,j,k,ans:longint;
begin
 for i:=0 to 100 do
  for j:=0 to 100 do
   a[i,j]:=-23333333;//一定要足够小（别问为什么，我的正确率%>_<%）
 read(n,m);
 for i:=1 to m do
  begin
   readln(b,c,d);
   a[b,c]:=d;
  end;
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
    if a[j,i]+a[i,k]>a[j,k] then a[j,k]:=a[j,i]+a[i,k];//最大路~
 ans:=-23333333;
 for i:=1 to n do
  for j:=i+1 to n do
   if (i<>j) and (a[i,j]>ans) then ans:=a[i,j];//不要重复
 writeln(ans);
end.

//详见上一条博客，只改了输入和判断条件（一下水2题的快感~）http://blog.youkuaiyun.com/ssl_lzx/article/details/69390232