花生采摘(pascal)

《花生采摘(pascal)》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。

1、花生采摘題目描述　　魯賓遜先生有一只寵物猴，名叫多多。這天，他們兩個正沿著鄉(xiāng)間小路散步，突然發(fā)現(xiàn)路的告示牌上貼著一張小小的紙條：“歡迎免費品嘗我種的花生!——熊字”?！　◆斮e遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背后，路邊真的有一塊花生田，花生植株整齊地排列成矩形網(wǎng)格(如圖1)。有經(jīng)驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此類推，不過你一定要在我限定的時間內回到路邊。”　　我們假定多

2、多在每個單位時間內，可以做下列四件事情中的一件：　　1)從路邊跳到最靠近路邊(即第一行)的某棵花生植株；　　2)從一棵植株跳到前后左右與之相鄰的另一棵植株；　　3)采摘一棵植株下的花生；　　4)從最靠近路邊(即第一行)的某棵花生植株跳回路邊?！　‖F(xiàn)在給定一塊花生田的大小和花生的分布，請問在限定時間內，多多最多可以采到多少個花生?注意可能只有部分植株下面長有花生，假設這些植株下的花生個數(shù)各不相同。　　例如在圖2所示的花生田里，只有位于(2,5)，(3,7)，(4,2)，(5,4)的植株下長有花生，個數(shù)分別為13,7,15,9。沿著圖示的

3、路線，多多在21個單位時間內，最多可以采到37個花生。輸入格式　　輸入的第一行包括三個整數(shù)，M,N和K，用空格隔開；表示花生田的大小為M*N(1<=M,N<=20)，多多采花生的限定時間為K(0<=K<=1000)個單位時間。接下來的M行，每行包括N個非負整數(shù)，也用空格隔開；第i+1行的第j個整數(shù)Pij(0<=Pij<=500)表示花生田里植株(i,j)下花生的數(shù)目，0表示該植株下沒有花生。輸出格式輸出包括一行，這一行只包含一個整數(shù)，即在限定時間內，多多最多可以采到花生的個數(shù)。樣例輸入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.