欢迎来到天天文库
浏览记录
ID:14232394
大小:50.00 KB
页数:4页
时间:2018-07-27
《花生采摘(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;ifl6、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].x7、)<=k)and(a[i].d=0)thenbeginwrite(w);halt;endelsebegint:=q;w:=w+a[i].d;end;end;end.
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.
此文档下载收益归作者所有