【动态规划】数字三角形2

【题目描述】

数字三角形
要求走到最后mod 100最大

【输入格式】

第1行n，表示n行 <=25
第2到n+1行为每个的权值

【输出格式】

mod 100最大值

【分析】

设置状态f[i][j][k]表示(i,j)各自内是否mod 100可以为k。

状态转移方程：

f[i][j][k]=f[i+1][j][k+a[i+1][j]mod 100]  || f[i+1][j+1][k+a[i+1][j+1]mod 100]

一开始把f[1][1][a[1][1]]设置为true

【代码】

var
  f:array[0..25,0..25,0..99]of boolean;
  a:array[0..25,0..25] of longint;
  n,i,j,k:longint;
function max(n,m:longint):longint;
  begin
    if n>m then exit(n) else exit(m);
  end;
begin
  fillchar(f,sizeof(f),false);
  readln(n);
  for i:=1 to n do 
    for j:=1 to i do read(a[i][j]);
  f[1][1][a[1][1]mod 100]:=true;
  for i:=2 to n do 
    for j:=1 to i do
      for k:=0 to 99 do 
      begin
        if f[i-1][j][k] then f[i][j][(k+a[i][j])mod 100]:=true;
        if f[i-1][j-1][k] then f[i][j][(k+a[i][j])mod 100]:=true;
      end;
  for i:=99 downto 0 do 
    for j:=1 to n do 
      if f[n][j][i] then 
      begin
        writeln(i);
        halt;
      end;
end.