SSL1762工厂的烦恼

SSL1762工厂的烦恼

题目

某工厂发现厂里的机器在生产产品时要消耗大量的原材料，也就是说，有大量的原材料变成了废物。因此厂里想找出消耗原材料最大的一条生产线路进行改造，以降低成本。厂里的生产线路是一个有向无环网络，有N台机器分别代表网络中的N个结点。弧< I,j >(i < j)表示原材料从机器i传输到机器j的损耗数量。第一行是两个整数N，M（N<=100,M<=1000），分别表示网络的结点个数和弧数。第二行至M+1行，每行三个整数A，B，C，表示弧上的损耗为C。

题意

给出一个有n个点，m条边的图，求最长路径。

题解

用做最短路径的方法，只需改成找较大的路径即可
时间复杂度：Floyd O(n*n*n)

代码

var
  i,j,k,n,m,ans:longint;
  a:array[0..100,1..100]of longint;
begin
  readln(n,m);
  for i:=1 to m do
    readln(j,k,a[j,k]);
  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])and(i<>j)and(j<>k)and(a[i,k]<>0)and(a[k,j]<>0) then
           begin
             a[i,j]:=a[i,k]+a[k,j];
             if a[i,j]>ans then ans:=a[i,j];
           end;
  writeln(ans);
end.