[洛谷1086]花生采摘

来源：互联网发布：知柏地黄丸一次吃多少编辑：程序博客网时间：2024/04/26 07:32

题目来源

www.luogu.org

原网址

http://www.luogu.org/problem/show?pid=1086

题目描述

鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！――熊字”。
鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”
[洛谷1086]花生采摘

我们假定多多在每个单位时间内，可以做下列四件事情中的一件：
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题

题解

这题首先要找到所有的花生，依次记录坐标。然后花生多少进行排序。排序后，依次按每一个地点，每次花生总数加上这个地点的花生数，减去耗费的时间，直到到下一个地点的时间不够了。

代码

var

n,m,k,t,i,j,x1,y1,ans,l,r:longint;

f:boolean;

a:array[1..20,1..20] of longint;

b,x,y:array[1..1000] of longint;

procedure qsort(l,r:longint);

var i,j,m,t:longint;

begin

i:=l; j:=r;

m:=b[(l+r)div 2];

repeat

while b[i]>m doi:=i+1;

while b[j]

if i<=j then

begin

t:=b[i];

b[i]:=b[j];

b[j]:=t;

t:=x[i];

x[i]:=x[j];

x[j]:=t;

t:=y[i];

y[i]:=y[j];

y[j]:=t;

i:=i+1;

j:=j-1;

end;

until i>j;

if l

if i

end;

begin

readln(n,m,k);

t:=0;

for i:=1 to n do

for j:=1 to m do beginread(a[i,j]);if a[i,j]>0 then begininc(t);b[t]:=a[i,j];x[t]:=i;y[t]:=j;end;end;

qsort(1,t);

f:=false;

x1:=0;

y1:=y[1];

i:=0;

ans:=0;

repeat

inc(i);

l:=abs(x[i]-x1);

r:=abs(y[i]-y1);

if k-l-1-x[i]-r>=0then

begin

ans:=ans+b[i];x1:=x[i];y1:=y[i];

k:=k-l-1-r;

end

else f:=true;

until f;

writeln(ans);

end.

0 0