SSL2059 新校园

Description

建一所学校有许多的子工程,我们把这些子工程编号为1、2、……、N,一些子工程必须在某些子工程完成之后才能施工。首先,我们需要计算完成这所学校的建设整个工程最少的完成时间;同时,我们必须知道哪些子工程的延期会影响整个工程的延期。 
(1)根据预算,每一个子工程都有一个完成时间; 
(2)子工程之间的依赖关系是:部分子工程必须在一些子工程完成之后才开工。 
(3)只要满足子工程之间的依赖关系,在任何时刻可以有任何多个子工程同时在施工,也即同时施工的子工程个数不受限制。 

Sample Input

5
5 4 12 7 2
0 0 0 0
0 0 0 0
0 0 0 0
1 1 0 0
1 1 1 1

Sample Output

14
1 3 4 5

先处理入度为0的工程i,找到所有需要工程i先完成的工程j,更新mi[j]数组(j最长子工程完成的时间),并用p记录最长的子工程k,输出最长的时间,从最晚完成的工程反向沿p输出。
var
  f,p:array[0..300,0..300] of longint;
  e,t,a,mi,h:array[0..300] of longint;
  w:array[0..300] of boolean;
  n,max,r:longint;
procedure ss;
var
  l,i,j,k:longint;
begin
  k:=n;
  l:=1;r:=0;
  for i:=1 to n do
    if t[i]=0 then
      begin inc(r);h[r]:=i;end;
  while l<=r do
    begin
      if t[h[l]]=0 then
        begin
          dec(k);
          e[h[l]]:=mi[h[l]]+a[h[l]];
          if e[h[l]]>max then
            begin
              max:=e[h[l]];
              for i:=1 to p[0,0] do
                p[0,i]:=0;
              p[0,0]:=1;
              p[0,1]:=h[l];
            end
          else
          if e[h[l]]=max then
            begin
              inc(p[0,0]);
              p[0,p[0,0]]:=h[l];
            end;
          for j:=1 to n do
            if (f[j,h[l]]=1)and(h[l]<>j) then
              begin
                if e[h[l]]>mi[j] then
                  begin
                    mi[j]:=e[h[l]];
                    for i:=1 to p[j,0] do
                      p[j,i]:=0;
                    p[j,0]:=1;
                    p[j,1]:=h[l];
                  end
                else
                  if e[h[l]]=mi[j] then
                    begin
                      inc(p[j,0]);
                      p[j,p[j,0]]:=h[l];
                    end;
                dec(t[j]);
                if t[j]=0 then
                  begin inc(r);h[r]:=j;end;
              end;
        end;
      inc(l);
    end;
end;
procedure dg(x:longint);
var
  i:longint;
begin
  w[x]:=true;
  for i:=1 to p[x,0] do
    dg(p[x,i]);
end;
var
  i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    begin
      for j:=1 to n do
        if i<>j then
          begin
            read(f[i,j]);
            if f[i,j]=1 then
              inc(t[i]);
          end;
      readln;
    end;
  max:=-maxlongint;
  ss;
  if r<>n then
    begin writeln(-1);exit;end;
  dg(0);
  writeln(max);
  for i:=1 to n do
    if w[i] then write(i,' ');
  writeln;
end.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
牙科就诊管理系统利用当下成熟完善的SSM框架,使用跨平台的可开发大型商业网站的Java语言,以及最受欢迎的RDBMS应用软件之一的Mysql数据库进行程序开发。实现了用户在线查看数据。管理员管理病例管理、字典管理、公告管理、药单管理、药品管理、药品收藏管理、药品评价管理、药品订单管理、牙医管理、牙医收藏管理、牙医评价管理、牙医挂号管理、用户管理、管理员管理等功能。牙科就诊管理系统的开发根据操作人员需要设计的界面简洁美观,在功能模块布局上跟同类型网站保持一致,程序在实现基本要求功能时,也为数据信息面临的安全问题提供了一些实用的解决方案。可以说该程序在帮助管理者高效率地处理工作事务的同时,也实现了数据信息的整体化,规范化与自动化。 管理员在后台主要管理病例管理、字典管理、公告管理、药单管理、药品管理、药品收藏管理、药品评价管理、药品订单管理、牙医管理、牙医收藏管理、牙医评价管理、牙医挂号管理、用户管理、管理员管理等。 牙医列表页面,此页面提供给管理员的功能有:查看牙医、增牙医、修改牙医、删除牙医等。公告信息管理页面提供的功能操作有:增公告,修改公告,删除公告操作。公告类型管理页面显示所有公告类型,在此页面既可以让管理员添加的公告信息类型,也能对已有的公告类型信息执行编辑更,失效的公告类型信息也能让管理员快速删除。药品管理页面,此页面提供给管理员的功能有:增药品,修改药品,删除药品。药品类型管理页面,此页面提供给管理员的功能有:增药品类型,修改药品类型,删除药品类型。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值