codeves天梯花生采摘

最新推荐文章于 2023-06-25 12:01:09 发布

StrACPgirl

最新推荐文章于 2023-06-25 12:01:09 发布

阅读量729

点赞数

CC 4.0 BY-SA版权

分类专栏： codeves天梯

本文链接：https://blog.youkuaiyun.com/StrACPgirl/article/details/54896977

codeves天梯专栏收录该内容

31 篇文章

订阅专栏

鲁宾逊先生带着宠物猴多多在乡间散步时发现了一片花生田，并决定让多多通过有限的时间内选择并摘取最多数量的花生来训练其算术能力。

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

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

鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图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]<t do
      dec(j);
    if i<=j then
      begin
        a[0,1]:=a[i,1];a[0,2]:=a[i,2];a[0,3]:=a[i,3];
        a[i,1]:=a[j,1];a[i,2]:=a[j,2];a[i,3]:=a[j,3];
        a[j,1]:=a[0,1];a[j,2]:=a[0,2];a[j,3]:=a[0,3];
        inc(i);dec(j);
      end;
  until i>j;
  qsort(l,j);
  qsort(i,r);
end;

procedure main;
var
  i,j,q:longint;
begin
  q:=0;
  while (k>0) and (q<p) do
    begin
      inc(q);
      if q=1 then
        begin
          ans:=ans+a[q,3];
          k:=k-a[q,1];
          k:=k-1;
        end
      else
        begin
          ans:=ans+a[q,3];
          k:=k-abs(a[q,1]-a[q-1,1]);
          k:=k-abs(a[q,2]-a[q-1,2]);
          k:=k-1;
        end;
    if k-a[q,1]<0 then ans:=ans-a[q,3];
    end;
end;

begin
  init;
  qsort(1,p);
  main;
  write(ans);
end.