工厂的烦恼

工厂的烦恼

Time Limit:10000MS Memory Limit:65536K

Total Submit:109 Accepted:69

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

用Floyd

因为是求最长路，所以一开始没有连接的点要附一个很小很小的值

var
map:array[0..101,0..101]of longint;
i,j,n,s,t,max,x,y:longint;
begin
read(n,s);
for i:=1 to n do
for j:=1 to n do
map[i,j]:=-maxint;
for i:=1 to s do
begin
read(x,y,t);
map[x,y]:=t;
end;
for t:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
if (map[i,t]+map[t,j]>map[i,j]) then
map[i,j]:=map[i,t]+map[t,j];
end;
for i:=1 to n do
for j:=1 to n do
if (max<map[i,j]) then max:=map[i,j];
write(max);
end.