codeves天梯 花生采摘

鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！——熊字”。

 

鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”

分析：这题的做法是贪心，我的做法和搜索大同小异。先按时间由小到大排序，每次都由当前的状态拓展取果实，若结果更优则直接更新，当时间不足时直接退出。

const
  maxn=401;

var
  a:array [0..maxn,1..3] of longint;
  m,n,k,p,q,ans:longint;

procedure init;
var
  i,j,s:longint;
begin
  readln(m,n,k);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          read(s);
          if s>0 then
            begin
              inc(p);
              a[p,1]:=i;
              a[p,2]:=j;
              a[p,3]:=s;
            end;
        end;
      readln;
    end;
end;

procedure qsort(l,r:longint);
var
  i,j,t:longint;
begin
  if l>=r then exit;
  i:=l; j:=r;
  t:=a[(l+r) div 2,3];
  repeat
    while a[i,3]>t do
      inc(i);
    while a[j,3]j;
  qsort(l,j);
  qsort(i,r);
end;

procedure main;
var
  i,j,q:longint;
begin
  q:=0;
  while (k>0) and (q