[NOIP2010]乌龟棋 TYVJ P1402 题解

program P1402; var n,m,l1,l2,l3,l4:longint; a:array [-1..350] of longint; b:array [1..4] of longint; f:array [-1..40,-1..40,-1..40,-1..40] of longint; procedure init; var i,temp:longint; begin l1:=0; l2:=0; l3:=0; l4:=0; readln(n,m); for i:=1 to n do read(a[i]); readln; for i:=1 to m do begin read(temp); case temp of 1:inc(l1);//计算第一种卡片的张数 2:inc(l2);//计算第二种卡片的张数 3:inc(l3);//计算第三种卡片的张数 4:inc(l4);//计算第四种卡片的张数 end;{case} inc(b[temp]);//添加入b数组中 end; end; function max(x,y:longint):longint; begin if x>y then exit(x) else exit(y); end; procedure DP; var i,j,k,l:longint; begin f[0,0,0,0]:=a[1];//初始化f[0,0,0,0]表示用0张1卡片，0张2卡片，0张3卡片，0张4卡片的最优解为a[1]（这是题目要求的） for i:=0 to l1 do begin for j:=0 to l2 do begin for k:=0 to l3 do begin for l:=0 to l4 do begin f[i,j,k,l]:=max(max(f[i-1,j,k,l],f[i,j-1,k,l]),max(f[i,j,k-1,l],f[i,j,k,l-1]))+a[1+i+j*2+k*3+l*4];//分别枚举，用i张1卡片，j张2卡片，k张3卡片，l张4卡片所走到的点等于之前的点的最优解+a[1+i+j*2+k*3+l*4]，因为假设用1张1卡片就走到了2这个点（一开始位于1号点，所以还要加个1） end; end; end; end; end; begin assign(input,'P1402.txt'); reset(input); assign(output,'P1402.txt'); rewrite(output); init; DP; writeln(f[l1,l2,l3,l4]);//最后目标就是用l1张1卡片，l2张2卡片，l3张3卡片，l4张4卡片所获得的最优解 close(input); close(output); end.