洛谷1086 花生采摘

本题地址： http://www.luogu.org/problem/show?pid=1086

题目描述

鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！――熊字”。鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”我们假定多多在每个单位时间内，可以做下列四件事情中的一件：1)      从路边跳到最靠近路边（即第一行）的某棵花生植株；2)      从一棵植株跳到前后左右与之相邻的另一棵植株；3)      采摘一棵植株下的花生；4)      从最靠近路边（即第一行）的某棵花生植株跳回路边。现在给定一块花生田的大小和花生的分布，请问在限定时间内，多多最多可以采到多少个花生？注意可能只有部分植株下面长有花生，假设这些植株下的花生个数各不相同。例如在图2所示的花生田里，只有位于(2, 5), (3, 7), (4, 2), (5, 4)的植株下长有花生，个数分别为13, 7, 15, 9。沿着图示的路线，多多在21个单位时间内，最多可以采到37个花生。

输入输出格式

输入格式：

输入文件peanuts.in的第一行包括三个整数，M, N和K，用空格隔开；表示花生田的大小为M * N（1 <= M, N <= 20），多多采花生的限定时间为K（0 <= K <= 1000）个单位时间。接下来的M行，每行包括N个非负整数，也用空格隔开；第i + 1行的第j个整数Pij（0 <= Pij <= 500）表示花生田里植株(i, j)下花生的数目，0表示该植株下没有花生。

输出格式：

输出文件peanuts.out包括一行，这一行只包含一个整数，即在限定时间内，多多最多可以采到花生的个数。

输入输出样例

输入样例#1：

【样例输入1】 6 7 21 0 0 0 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 7 0 15 0 0 0 0 0 0 0 0 9 0 0 0 0 0 0 0 0 0 0 【样例输入2】 6 7 20 0 0 0 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 7 0 15 0 0 0 0 0 0 0 0 9 0 0 0 0 0 0 0 0 0 0

输出样例#1：

【样例输出1】 37 【样例输出2】 28

说明

noip2004普及组第2题

题解

模拟+排序

这道题的思路很清晰，首先我们要将植株按花生个数降序排序（这里用的是冒泡，数据全过没问题，但笔者还是推荐大家用快排），可减少搜索时间。

枚举找到当前花生最多的植株，然后计算从当前位置到植株的时间。

特别注意：我们需要考虑到达植株后所剩时间是否能够回到路边，如果不能，则从当前位置直接回到路边（不能太贪心哦）。

保证在有限的时间内，采到最多的花生。

下面附上代码。

代码

program peanuts;  var    m,n,k,c,t,x,xx,y,yy,max,i,j,l:longint;    a:array[1..20,1..20] of longint;    b:array[1..400] of longint;  begin    readln(m,n,k);    c:=0;    max:=0;    for i:=1 to m do      for j:=1 to n do        begin          read(a[i,j]);          if a[i,j]<>0 then            begin              inc(c);              b[c]:=a[i,j];            end;        end;    for i:=1 to c do      for j:=1 to c-i do        if b[j]<b[j+1] then          begin            t:=b[j];            b[j]:=b[j+1];            b[j+1]:=t;          end;    for i:=1 to c do      begin        for j:=1 to m do          for l:=1 to n do            if b[i]=a[j,l] then              begin                if i=1 then y:=l;                xx:=abs(j-x);                yy:=abs(l-y);                if xx+yy+j+1>k then                  begin                    writeln(max);                    halt;                  end                else                  begin                    dec(k,xx+yy+1);                    inc(max,b[i]);                  end;                x:=j;                y:=l;              end;      end;    writeln(max);  end.  

（本文系笔者原创，未经允许不得转载）

转载于:https://www.cnblogs.com/yzm10/p/4747622.html