Milk Scheduling

weixin_30472035

于 2018-10-04 14:00:00 发布

阅读量196

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/godrose/p/9742127.html

本文深入探讨了图论中的深度优先搜索(DFS)算法，通过具体实例详细讲解了如何使用DFS解决图中的路径寻找问题。文章首先介绍了DFS的基本概念和实现流程，随后通过伪代码形式展示了DFS算法的具体实现，并在代码中运用了邻接表数据结构进行图的存储。最后，通过对一个实际案例的分析，展示了DFS算法在解决实际问题中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题面：

思路：

代码：

uses math;
var ans,n,m,tot,x,y,i,j:longint;
 next,last,tail:array[0..100005] of longint;
  t,c,d:array[0..10005] of longint;
   f:Array[0..10005] of boolean;

procedure add(x,y:longint);
begin
 inc(tot);
 next[tot]:=y;
 last[tot]:=tail[x];
 tail[x]:=tot;
end;

procedure dfs(x,y:longint);
var cc:longint;
begin
 c[x]:=max(c[x],y+t[x]);
 dec(d[x]);
 if d[x]=0 then
  begin
   cc:=tail[x];
   while (cc>0) do
    begin
     dfs(next[cc],c[x]);
     cc:=last[cc];
    end;
  end;
end;

begin

assign(input,'msched.in');
reset(input);
assign(output,'msched.out');
rewrite(output);

read(n,m);
for i:=1 to n do read(t[i]);
for i:=1 to m do begin read(x,y); add(x,y); f[y]:=true; inc(d[y]); end;

for i:=1 to n do
 if not f[i] then
  begin
   d[i]:=1;
   dfs(i,0);
  end;

for i:=1 to n do ans:=max(ans,c[i]);
writeln(ans);

close(input);close(output);
end.

转载于:https://www.cnblogs.com/godrose/p/9742127.html