题目
鲁宾逊先生和多多都很开心,因为花生正是他们的最爱。在告示牌背后,路边真的有一块花生田,花生植株整齐地排列成矩形网格(如图1)。有经验的多多一眼就能看出,每棵花生植株下的花生有多少。为了训练多多的算术,鲁宾逊先生说:“你先找出花生最多的植株,去采摘它的花生;然后再找出剩下的植株里花生最多的,去采摘它的花生;依此类推,不过你一定要在我限定的时间内回到路边。”
我们假定多多在每个单位时间内,可以做下列四件事情中的一件:
1) 从路边跳到最靠近路边(即第一行)的某棵花生植株;
2) 从一棵植株跳到前后左右与之相邻的另一棵植株;
3) 采摘一棵植株下的花生;
4) 从最靠近路边(即第一行)的某棵花生植株跳回路边。
现在给定一块花生田的大小和花生的分布,请问在限定时间内,多多最多可以采到多少个花生?注意可能只有部分植株下面长有花生,假设这些植株下的花生个数各不相同。
例如在图2所示的花生田里,只有位于(2, 5), (3, 7), (4, 2), (5, 4)的植株下长有花生,个数分别为13, 7, 15, 9。沿着图示的路线,多多在21个单位时间内,最多可以采到37个花生。
题解
模拟
O(500)
代码
var
n,m,i,j,k,x,y,t,ans:longint;
a:array[0..500,1..2]of longint;
begin
readln(n,m,k);
for i:=1 to n do
for j:=1 to m do
begin
read(x);
a[x,1]:=i;a[x,2]:=j;
if x>t then t:=x;
end;
if k-a[t,1]*2-1>=0 then
begin k:=k-a[t,1]-1;x:=a[t,1];y:=a[t,2];ans:=ans+t;end else
begin writeln('0');exit;end;
for i:=t-1 downto 1 do
if a[i,1]>0 then
if k-abs(a[i,1]-x)-abs(a[i,2]-y)-a[i,1]-1>=0 then
begin
k:=k-abs(a[i,1]-x)-abs(a[i,2]-y)-1;
x:=a[i,1];y:=a[i,2];
ans:=ans+i;
end else break;
writeln(ans);
end.