杂务

杂务

源程序名 CHORE.???(PAS,C,CPP)

可执行文件名 CHORE.EXE

输入文件名 CHORE.IN

输出文件名 CHORE.OUT

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，整个输入文件中不会出现多余的空格。

输出

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

样例

CHORE.IN

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

CHORE.OUT

23

思路：个人觉得是最长路的思想。

program aa;
var t:array[1..10000]of longint;//t[i]表示做完前i件事所需时间。
n,i,a,b,max,ans:longint;
procedure open;
begin
assign(input,'chore.in');
assign(output,'chore.out');
reset(input);
rewrite(output);
end;

procedure closs;
begin
close(input);
close(output);
end;

begin
open;
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);
closs;
end.

一点反思：这个题交一遍就AC了耶╰(*°▽°*)╯