花生采摘

来源:互联网 发布:娇兰黄金复原蜜 知乎 编辑:程序博客网 时间:2024/03/29 19:30

前言
“光阴磕绊许,来时全懵逼; 水法真神奇,暴力出奇迹。 极目眺正解,唾手得暴力。 分解质因数,费马小定理。 ”欢迎来到嘟嘟课堂。今天,嘟嘟老师讲一道较水的题——花生采摘。
题目描述
鲁宾逊先生有一只宠物猴,名叫多多。(What!我咋不知道呢?是鲁滨逊还是鲁迅)这天,他们两个正沿着乡间小路散步,突然发现路边的告示牌上贴着一张小小的纸条:“欢迎免费品尝我种的花生!——熊字”。
鲁宾逊先生和多多都很开心,因为花生正是他们的最爱。在告示牌背后,路边真的有一块花生田,花生植株整齐地排列成矩形网格(如图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
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
样例输出1
37
样例输入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
样例输出2
28
思路
此题呢。。。非常的水。就是一道贪心。核心思路就是:每次找到最大的那颗花生,如果可以时间充足,就去摘。然后将答案更新就行了。做不出的童鞋看一下具体实现吧!
代码

var        a:array[0..30,0..30] of longint;        i,j,k,n,m,t,x,y,x1,y1,ans,max:longint;begin        read(n,m,k);        for i:=1 to n do        begin                for j:=1 to m do                begin                        read(a[i,j]);                        if (a[i,j]>max) then                        begin                                x1:=i;                                y1:=j;                                max:=a[i,j];                        end;                end;        end;        y:=y1;        while (max>0) and (t+abs(x-x1)+abs(y-y1)+x1+1<=k) do        begin                inc(ans,max);                max:=0;                t:=t+abs(x-x1)+abs(y-y1)+1;                a[x1,y1]:=0;                x:=x1;                y:=y1;                for i:=1 to n do                begin                        for j:=1 to m do                        begin                                if (a[i,j]>max) then                                begin                                        x1:=i;                                        y1:=j;                                        max:=a[i,j];                                end;                        end;                end;        end;        writeln(ans);end.
原创粉丝点击