花生采摘(pascal).doc

花生采摘題目描述魯賓遜先生有一只寵物猴，名叫多多。這天，他們兩個正沿著鄉(xiāng)間小路散步，突然發(fā)現(xiàn)路的告示牌上貼著一張小小的紙條：“歡迎免費品嘗我種的花生!熊字”。魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背后，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格(如圖1)。有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此類推，不過你一定要在我限定的時間內回到路邊?！?我們假定多多在每個單位時間內，可以做下列四件事情中的一件：1) 從路邊跳到最靠近路邊(即第一行)的某棵花生植株；2) 從一棵植株跳到前后左右與之相鄰的另一棵植株；3) 采摘一棵植株下的花生；4) 從最靠近路邊(即第一行)的某棵花生植株跳回路邊?，F(xiàn)在給定一塊花生田的大小和花生的分布，請問在限定時間內，多多最多可以采到多少個花生?注意可能只有部分植株下面長有花生，假設這些植株下的花生個數各不相同。例如在圖2所示的花生田里，只有位于(2,5)，(3,7)，(4,2)，(5,4)的植株下長有花生，個數分別為13,7,15,9。沿著圖示的路線，多多在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表示該植株下沒有花生。輸出格式輸出包括一行，這一行只包含一個整數，即在限定時間內，多多最多可以采到花生的個數。樣例輸入6 7 210 0 0 0 0 0 00 0 0 0 13 0 00 0 0 0 0 0 70 15 0 0 0 0 00 0 0 9 0 0 00 0 0 0 0 0 0 樣例輸出37我的程序（pascal）program huanshl;type date=record x,y,d:longint; end;var a:array1.40000of date; k,i,j,m,n,q,t,w,p:longint;procedure qsort(l,r:longint);var i,j:longint; m,t:date; begin i:=l; j:=r; m:=a(l+r)shr 1; repeat while ai.dm.d do dec(j); if ij; if lj then qsort(l,j); if i3) then begin write(a1.d);halt;end; qsort(1,p); t:=ap.x+1; w:=ap.d; if t+ap.xk then begin write(0);halt;end; for i:=p-1 downto 1 do begin q:=t+abs(ai.x-ai+1.x)+abs(ai.y-ai+1.y)+1; if (q+abs(ai.x)k then begin write(w);halt;end; if (q+abs(ai.x)=k) and (ai.d=0)