洛谷 P1086 花生採摘

題目描述

魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格（如圖1）。有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說：「你先找出花生最多的植株，去採摘它的花生；然後再找出剩下的植株裡花生最多的，去採摘它的花生；依此類推，不過你一定要在我限定的時間內回到路邊。」

我們假定多多在每個單位時間內，可以做下列四件事情中的一件：

1) 從路邊跳到最靠近路邊（即第一行）的某棵花生植株；

2) 從一棵植株跳到前後左右與之相鄰的另一棵植株；

3) 採摘一棵植株下的花生；

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)下花生的數目，0表示該植株下沒有花生。

輸出格式：

輸出檔案peanuts.out包括一行，這一行只包含乙個整數，即在限定時間內，多多最多可以採到花生的個數。

輸入輸出樣例

輸入樣例#1：

6 7 21

0 0 0 0 0 0 0

0 0 0 0 13 0 0

0 0 0 0 0 0 7

0 15 0 0 0 0 0

0 0 0 9 0 0 0

0 0 0 0 0 0 0

輸出樣例#1：

37 輸入樣例#2：

6 7 20

0 0 0 0 0 0 0

0 0 0 0 13 0 0

0 0 0 0 0 0 7

0 15 0 0 0 0 0

0 0 0 9 0 0 0

0 0 0 0 0 0 0

輸出樣例#2：

28分析：

每次找最大，跑過去摘（排序也行）。模擬一下就好。要認真打，有坑。

**：

const
maxn=401;
var  a:array [0..maxn,1..3] of longint;
m,n,k,p,q,ans:longint;
procedure
init;
var  i,j,s:longint;
begin
readln(m,n,k);
for i:=1
to m do
begin
for j:=1
to n do
begin
read(s);
if s>0
then
begin
inc(p);
a[p,1]:=i;
a[p,2]:=j;
a[p,3]:=s;
end;
end;
readln;
end;
end;
procedure
qsort
(l,r:longint);
var  i,j,t:longint;
begin
if l>=r then
exit;
i:=l; j:=r;
t:=a[(l+r) div
2,3];
repeat
while a[i,3]>t do
inc(i);
while a[j,3]do
dec(j);
if i<=j then
begin
a[0,1]:=a[i,1];a[0,2]:=a[i,2];a[0,3]:=a[i,3];
a[i,1]:=a[j,1];a[i,2]:=a[j,2];a[i,3]:=a[j,3];
a[j,1]:=a[0,1];a[j,2]:=a[0,2];a[j,3]:=a[0,3];
inc(i);dec(j);
end;
until i>j;
qsort(l,j);
qsort(i,r);
end;
procedure
main;
var  i,j,q:longint;
begin
q:=0;
while (k>0) and (qdo
begin
inc(q);
if q=1
then
begin
ans:=ans+a[q,3];
k:=k-a[q,1];
k:=k-1;
endelse
begin
ans:=ans+a[q,3];
k:=k-abs(a[q,1]-a[q-1,1]);
k:=k-abs(a[q,2]-a[q-1,2]);
k:=k-1;
end;
if k-a[q,1]<0
then ans:=ans-a[q,3];
end;
end;
begin
init;
qsort(1,p);
main;
write(ans);
end.

洛谷 P1086 花生採摘

洛谷 P1086 花生採摘

洛谷 P1086 花生採摘

洛谷 P1086 花生採摘

相關推薦