资源描述：
《2014noip普及组复赛测试(答案).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、老师给笑笑布置了一份作业，笑笑不知如何解决。老师给了一串很长的数列，要求从中找出连续的一段来使的总和最大。【输入文件】：第一行包含一个整数n，表示数列的长度。(n<=100000)第二行包含n个整数来描述这个数列，每个整数的的绝对值不超过1000。【文件输出】：文件中只有一个整数，为最大的连续段总和。【输入样例】:51-231-4【输出样例】4vars:array[1..10000]oflongint;n,ii,t,ans:longint;beginreadln(n);fori:=1tondoread(s[i]);t:=s[1];ans:=s[1];fori:=2tondobeginif
2、t<0thent:=s[i]elset:=t+s[i];ift>ansthenans:=t;end;writeln(ans);end.输入6154-263输出17输入1024-12911720-815318输出87输入71089-512611输出51输入205121920-7-618221981133153217-3041424-13输出230【问题描述】鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！——熊字”。鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花
3、生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”我们假定多多在每个单位时间内，可以做下列四件事情中的一件：1)从路边跳到最靠近路边（即第一行）的某棵花生植株；2)从一棵植株跳到前后左右与之相邻的另一棵植株；3)采摘一棵植株下的花生；4)从最靠近路边（即第一行）的某棵花生植株跳回路边。现在给定一块花生田的大小和花生的分布，请问在限定时间内，多多最多可以采到多少个花生？注意可
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)下花生的数目，
5、0表示该植株下没有花生。【输出文件】输出文件peanuts.out包括一行，这一行只包含一个整数，即在限定时间内，多多最多可以采到花生的个数。【样例输入1】672100000000000130000000070150000000090000000000【样例输出1】37【样例输入2】672000000000000130000000070150000000090000000000【样例输出2】28vara:array[0..20,0..20]ofinteger;{存每个格子内的豆子数}m,n,k,step,i,j,x,y,x1,y1,sum:integer;f1,f2:text;yes:b
6、oolean;{存是否有豆子可摘}beginassign(f1,'peanuts.in');reset(f1);{输入文件名"peanuts.in"}assign(f2,'peanuts.out');rewrite(f2);{输出文件名"peanuts.out"}readln(f1,m,n,k);fori:=1tomdobeginforj:=1tondoread(f1,a[i,j]);readln(f1)end;{读入数据}x:=0;y:=0;yes:=true;sum:=0;{初始化,x,y存当前结点坐标}repeatx1:=0;y1:=0;fori:=1tomdoforj:=1ton
7、doifa[i,j]>a[x1,y1]thenbeginx1:=i;y1:=jend;{求出含有最多豆子数的格子坐标}ify=0theny:=y1;step:=abs(x-x1)+abs(y-y1)+x1+1;{求出从原点到含豆子数最多点内摘豆子并回到路边所需单位时间}if(k
