花生采摘(pascal)

《花生采摘(pascal)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、多在每个单位时间内，可以做下列四件事情中的一件：　　1)从路边跳到最靠近路边(即第一行)的某棵花生植株；　　2)从一棵植株跳到前后左右与之相邻的另一棵植株；　　3)采摘一棵植株下的花生；　　4)从最靠近路边(即第一行)的某棵花生植株跳回路边。　　现在给定一块花生田的大小和花生的分布，请问在限定时间内，多多最多可以采到多少个花生?注意可能只有部分植株下面长有花生，假设这些植株下的花生个数各不相同。　　例如在图2所示的花生田里，只有位于(2,5)，(3,7)，(4,2)，(5,4)的植株下长有花生，个数分别为13,7,15,9。沿着图示的

3、路线，多多在21个单位时间内，最多可以采到37个花生。输入格式　　输入的第一行包括三个整数，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表示该植株下没有花生。输出格式输出包括一行，这一行只包含一个整数，即在限定时间内，多多最多可以采到花生的个数。样例输入6721000000000001300000000

4、70150000000090000000000样例输出37我的程序（pascal）programhuanshl;typedate=recordx,y,d:longint;end;vara:array[1..40000]ofdate;k,i,j,m,n,q,t,w,p:longint;procedureqsort(l,r:longint);vari,j:longint;m,t:date;begini:=l;j:=r;m:=a[(l+r)shr1];repeatwhilea[i].dm.d

5、dodec(j);ifi<=jthenbegint:=a[i];a[i]:=a[j];a[j]:=t;inc(i);dec(j);end;untili>j;ifl

6、imodn;end;if(n=1)and(m=1)and(k>3)thenbeginwrite(a[1].d);halt;end;qsort(1,p);t:=a[p].x+1;w:=a[p].d;ift+a[p].x>kthenbeginwrite(0);halt;end;fori:=p-1downto1dobeginq:=t+abs(a[i].x-a[i+1].x)+abs(a[i].y-a[i+1].y)+1;if(q+abs(a[i].x))>kthenbeginwrite(w);halt;end;if(q+abs(a[i].x

7、)<=k)and(a[i].d=0)thenbeginwrite(w);halt;endelsebegint:=q;w:=w+a[i].d;end;end;end.