p1086 花生採摘
將植株按花生數從大到小排序，然後按排序後的順序摘，每次摘前計算能否在摘後回到路邊，如果能就將ans加上該植株花生數，如果不能就直接輸出當前ans並退出。
var a:array[1..405,1..3] of integer;i,j,x,y,m,n,k,n1,t1,ans,time:longint;
procedure sort(l,r:longint);
var i,j,m,t:longint;
begin
i:=l;j:=r;
m:=a[(l+r) div 2,1];
repeat
while a[i,1]>m do inc(i);
while a[j,1]j;
if l0
then
begin
inc(n1);
a[n1,1]:=x;
a[n1,2]:=i;
a[n1,3]:=j;
end;
end;
sort(1,n1);
x:=0;y:=a[1,3];
for i:=1 to n1 do
begin
t1:=time+abs(a[i,2]-x)+abs(a[i,3]-y)+1;
if t1+a[i,2]<=k
then
begin
time:=t1;
x:=a[i,2];
y:=a[i,3];
ans:=ans+a[i,1];
endelse
begin
writeln(ans);
exit;
end;
end;
writeln(ans);
end.
洛谷 P1086 花生採摘
題目描述 魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說 你先找出花生最多的植株，去採摘它的花生 然後再找出剩下的植株裡花生最多的，去採...
洛谷 P1086 花生採摘
魯賓遜先生有乙隻寵物猴，名叫多多。這天，他們兩個正沿著鄉間小路散步，突然發現路邊的告示牌上貼著一張小小的紙條 歡迎免費品嚐我種的花生！熊字 魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，每棵花生植...
洛谷 P1086 花生採摘
魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說 你先找出花生最多的植株，去採摘它的花生 然後再找出剩下的植株裡花生最多的，去採摘它的花生...