NOIP提高組模擬樹塔狂想曲

相信大家都在長訓班學過樹塔問題，題目很簡單求最大化乙個三角形數塔從上往下走的路徑和。走的規則是：（i，j）號點只能走向（i+1，j）或者（i+1，j+1）。如下圖是乙個數塔，對映到該數塔上行走的規則為：從左上角的點開始，向下走或向右下走直到最底層結束。

1 3 82 5 0 1 4 3 8 1 4 2 5 0 路徑最大和是1+8+5+4+4 = 22，1+8+5+3+5 = 22或者1+8+0+8+5 = 22。小s覺得這個問題so easy。於是他提高了點難度，他每次ban掉乙個點（即規定哪個點不能經過），然後詢問你不走該點的最大路徑和。

當然他上乙個詢問被ban掉的點過乙個詢問會恢復（即每次他在原圖的基礎上ban掉乙個點，而不是永久化的修改）。

因為修改不是永久的，所以不能直接修改原圖。那我們設兩個陣列fi

,j和gi,

j ，fi

,j表示由（1，1）走到（i，j）的最大值，gi

,j表示從底層走到（i，j）的最大值，當詢問某乙個點被禁止時，在同行的點中求最大值。

var
f,g,a:array[0..1000,0..1000] of longint;
t:array[1..1000,1..4000] of longint;
n,m,i,j,ans,x,y:longint;
function
max(x,y:longint):longint;
begin
if x>y then
exit(x) else
exit(y);
end;
procedure
get(x,l,r,wz,z,y:longint);
var mid:longint;
begin
if l>r then
exit;
if (l=z)and(r=y) then
begin
ans:=max(ans,t[x,wz]);
exit;
end;
mid:=(l+r) div
2;    if y<=mid then get(x,l,mid,wz*2,z,y)
else
if midthen get(x,mid+1,r,wz*2+1,z,y)
else
begin
get(x,l,mid,wz*2,z,mid);
get(x,mid+1,r,wz*2+1,mid+1,y);
end;
end;
procedure
make
(x,l,r,wz:longint);
var mid:longint;
begin
if l=r then
begin
t[x,wz]:=g[x,l]+f[x,l]-a[x,l];
exit;
end;
mid:=(l+r)div
2;    make(x,l,mid,wz*2);
make(x,mid+1,r,wz*2+1);
t[x,wz]:=max(t[x,wz*2],t[x,wz*2+1]);
end;
procedure
dp;var i,j:longint;
begin
fillchar(g,sizeof(g),255);
fillchar(f,sizeof(f),255);
f[1,1]:=a[1,1];
for i:=1
to n-1
dofor j:=1
to i do
begin
f[i+1,j]:=max(f[i+1,j],f[i,j]+a[i+1,j]);
f[i+1,j+1]:=max(f[i+1,j+1],f[i,j]+a[i+1,j+1]);
end;
for i:=1
to n do g[n,i]:=a[n,i];
make(n,1,n,1);
for i:=n-1
downto1do
begin
for j:=i downto1do
g[i,j]:=max(g[i+1,j],g[i+1,j+1])+a[i,j];
make(i,1,i,1);
end;
end;
begin
readln(n,m);
for i:=1
to n do
begin
for j:=1
to i do
read(a[i,j]);
readln;
end;
dp;for i:=1
to m do
begin
readln(x,y);
ans:=-1;
if1<=y-1
then get(x,1,x,1,1,y-1);
if y+1
<=x then get(x,1,x,1,y+1,x);
writeln(ans);
end;
end.

NOIP提高組模擬樹塔狂想曲

樹塔狂想曲 NOIP2016提高A組模擬9 3

樹塔狂想曲

樹塔狂想曲tower

NOIP提高組模擬 樹塔狂想曲

樹塔狂想曲 NOIP2016提高A組模擬9 3

樹塔狂想曲

樹塔狂想曲tower

相關推薦

NOIP提高組模擬樹塔狂想曲