POJ 3249：Test for Job（拓扑排序+DP）

题意就是给一个有向无环图，每个点都有一个权值，求从入度为0的点到出度为0点路径上经过点（包括起点终点)的权值和的最大值。

分析：

注意3点

1.本题有多组数据

2.可能有点的权值是负数，也就是结果可能为负，初值要设为负无穷。

3.入度或出度为0的点不止一个。

注意以上几点本题就很简单了，用到DP dis[i]:=max(dis[j],dis[i]+w[j])在拓扑排序过程同时进行即可。

考前练练拓扑排序和指针。

代码：

program test;
type
  point=^node;
  node=record
       data:longint;
       next:point;
    end;
var
  a:array[..]of point;
  w,u,v,dis,f:array[..]of int64;
  n,i,m,t,x,y,num:longint;
  ans:int64;
  p:point;
function max(x,y:int64):int64;
begin
  if x>y then max:=x else max:=y;
end;
begin
  while  not eof do
  begin
  readln(n,m);
  for i:= to n do
    readln(w[i]);
  for i:= to n do
    a[i]:=nil;
  t:=;  ans:=-maxlongint; num:=;
  fillchar(u,sizeof(u),);  fillchar(v,sizeof(v),);
  for i:= to m do
   begin
     readln(x,y);
     new(p); p^.data:=y; p^.next:=a[x]; a[x]:=p;
     u[y]:=u[y]+; v[x]:=v[x]+;
   end;
  for i:= to n do dis[i]:=-maxlongint;
  for i:= to n do if u[i]= then begin inc(t); f[t]:=i; dis[i]:=w[i]; end;
  repeat
    x:=f[t]; dec(t); inc(num);
    new(p); p:=a[x];
    while p<>nil do
     begin
       y:=p^.data; dis[y]:=max(dis[y],dis[x]+w[y]);
       dec(u[y]);
       if u[y]= then
        begin
          inc(t); f[t]:=y;
        end;
       p:=p^.next;
     end;
  until num=n;
  for i:= to n do
   if v[i]= then ans:=max(ans,dis[i]);
  writeln(ans);
  end;
end.