[洛谷1113]杂务

题目描述

　　John的农场在给奶牛挤奶前有很多杂务要完成，每一项杂务都需要一定的时间来完成它。比如：他们要将奶牛集合起来，将他们赶进牛棚，为奶牛清洗乳房以及一些其它工作。尽早将所有杂务完成是必要的，因为这样才有更多时间挤出更多的牛奶。当然，有些杂务必须在另一些杂务完成的情况下才能进行。比如：只有将奶牛赶进牛棚才能开始为它清洗乳房，还有在未给奶牛清洗乳房之前不能挤奶。我们把这些工作称为完成本项工作的准备工作。至少有一项杂务不要求有准备工作，这个可以最早着手完成的工作，标记为杂务1。John有需要完成的n个杂务的清单，并且这份清单是有一定顺序的，杂务k(k>1)的准备工作只可能在杂务1..k-1中。
　　写一个程序从1到n读入每个杂务的工作说明。计算出所有杂务都被完成的最短时间。当然互相没有关系的杂务可以同时工作，并且，你可以假定John的农场有足够多的工人来同时完成任意多项任务。

输入输出格式

输入格式：

第1行：一个整数n，必须完成的杂务的数目(3<=n<=10,000)；
第2 ~ n+1行： 共有n行，每行有一些用1个空格隔开的整数，分别表示：
　* 工作序号(1..n,在输入文件中是有序的)；
　* 完成工作所需要的时间len（1<=len<=100）；
　* 一些必须完成的准备工作，总数不超过100个，由一个数字0结束。有些杂务没有需要准备的工作只描述一个单独的0，整个输入文件中不会出现多余的空格。

输出格式：

一个整数，表示完成所有杂务所需的最短时间。

输入输出样例

输入样例#1：

7
1 5 0
2 2 1 0
3 3 2 0
4 6 1 0
5 1 2 4 0
6 8 2 4 0
7 4 3 5 6 0

输出样例#1：

23

思路

　　做完当前节点的工作的代价等于前面代价之和和当前的节点代价之和。

var a:array[1..10000] of longint;
    i,j,k,l,m,n:longint;
begin
    readln(n);
    fillchar(a,sizeof(a),0);
    m:=0;
    for i:=1 to n do
        begin
            read(k,l,j);
            k:=0;
            while j<>0 do
                begin
                    if a[j]>k then k:=a[j];
                    read(j);
                end;
            a[i]:=k+l;
            if a[i]>m then m:=a[i];
    end;
    write(m);
end.  

　　这个可能更直接

program aa;
var t:array[1..10000]of longint;
    n,i,a,b,max,ans:longint;
begin
    readln(n);
    for i:=1 to n do
    begin
        read(a);
        read(t[a]);
        max:=0;
        while 1>0 do
        begin
            read(b);
            if b=0 then break;
            if t[b]>max then max:=t[b];
        end;
        t[a]:=t[a]+max;
    end;
    for i:=1 to n do
        if t[i]>ans then
            ans:=t[i];
    writeln(ans);  

end.  

　　听说还可以用最长路做（凯特琳）

program exam1;
var map:array[1..1000000,1..3]of longint;
var f:array[1..10000]of longint;
var v:array[1..10000]of boolean;
var h:array[1..1000000]of longint;
var first:array[1..10000]of longint;
var bb:array[1..10000]of longint;
var tot,i,j,n,x,y,z,l,r,q,tt,qi,zhong,ans,len,num:longint;
procedure insert(a,b,c:longint);
begin
inc(tot);
map[tot,1]:=b;
map[tot,2]:=c;
map[tot,3]:=first[a];
first[a]:=tot;
end;
procedure spfa(ss:longint);
begin
//for i:=1 to n do
//if i<>ss then f[i]:=100000000;
fillchar(h,sizeof(h),0);
l:=0;
r:=1;
h[1]:=ss;
v[ss]:=true;
while l<r do
begin
inc(l);
q:=h[l];
tt:=first[q];
while tt<>0 do
begin
if f[map[tt,1]]<f[q]+map[tt,2] then
begin
f[map[tt,1]]:=f[q]+map[tt,2];
if f[map[tt,1]]>ans then
ans:=f[map[tt,1]];
if not v[map[tt,1]] then
begin
inc(r);
h[r]:=map[tt,1];
v[map[tt,1]]:=true;
end;
end;
tt:=map[tt,3];
end;
v[q]:=false;
end;
end;  

procedure search;
var ii:longint;
begin
for ii:=1 to n do
if f[ii]>ans then
ans:=f[ii];
end;  

begin
read(n);
for i:=1 to n do
begin
read(zhong);
read(len);
read(qi);
if qi=0 then
begin
inc(num);
bb[num]:=zhong;
f[zhong]:=len;
end
else
while qi<>0 do
begin
insert(qi,zhong,len);
read(qi);
end;
end;  

//for i:=1 to n do
//if f[i]=0 then f[i]:=100000000;
for i:=1 to num do
spfa(bb[i]);
//search;
writeln(ans);
end.  

　　另一种用图做的模型（路边的水沟 ）

var
  n:longint;
  f:array[0..10000] of longint;
  i,s,h,t,max:longint;
  ans:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
    read(s); //读入。s为当前处理项编号，t为当前处理项耗时。
    read(t);
    read(h);
    max:=0;
    while h>0 do
      begin
      if f[h]>max then max:=f[h]; //从当前处理项必须完成的任务中寻找耗时最大的一项。此时默认已经把可以同时进行的项目同时进行，所得总和结果为最小。
      read(h);
      end;
    readln;
    f[s]:=max+t; //加上当前处理项的耗时
    if f[s]>ans then ans:=f[s];
    end;
  writeln(ans);
end.