数字金字塔-SSL 1458

Description 

你和权权是一对很好很好的朋友。有一天，你们无聊得很，便上网冲浪，突然在一个叫做USACO的网中找到了一个游戏：《数字金子塔》。游戏规则是这样的：求一个数字金字塔中从最高点开始在底部任意处结束的路径经过数字的和的最大，其中的每一步可以走到下方的点也可以到达右下方的点。例如在下面的例子中，从7 — 3 — 8 — 7 –- 5的路径产生了最大和：30。 
7 
3 8 
8 1 0 
2 7 4 4 
4 5 2 6 5 
你们便约定了谁能计算出最后的值便是赢者。你仰天（天花板）长叹：我能成为赢者吗，要知道权权可是很厉害的哦…… 


Input 

第一行输入N（1<=N<=1000），表示数字金字塔行的数目。后面N输入这个数字金字塔，每个数字皆为整数(1<=x<=10000)，每2个整数之间有1个空格。

Output 

单独一行输出最后得到的最大的和。

Sample Input 


5
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5


Sample Output 


30

题解：这道题用顺推逆推做即可，先求出第n-1阶段(第n-1行上各点)到第n行的的最大和，再依次求出第n-2阶段、第n-3阶段……第1阶段(起始点)各决策点至第n行的最佳路径。
f[i,j]=max{a[i,j]+f[i+1,j],a[i,j]+f[i+1,j+1]} 

逆推：
const maxn=100;
var
  n,i,j:integer;
  a:array[1..maxn,1..maxn] of integer;
  f:array[1..maxn,1..maxn] of longint;
begin
 readln(n);
 for i:=1 to n do
  for j:=1 to i do
   read(a[i,j]);
 for i:=1 to n do
   f[n,i]:=a[n,i];
 for i:=n-1 downto 1 do
  for j:=1 to i do
   if f[i+1,j]>f[i+1,j+1] 
   then f[i,j]:=a[i,j]+f[i+1,j]
   else f[i,j]:=a[i,j]+f[i+1,j+1];
   writeln(f[1,1]);
end.

顺推：
const maxn=100;
var
  n:integer;
  a:array[1..maxn,1..maxn] of integer;
  f:array[1..maxn,1..maxn] of integer;
  max:integer;
procedure init;
var
  i,j:integer;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to i do
      read(a[i,j]);
  fillchar(f,sizeof(f),0);
end;
procedure dp;
var
  i,j:integer;
begin
  f[1,1]:=a[1,1];
  for i:=2 to n do
    begin
      f[i,1]:=a[i,1]+f[i-1,1];
      for j:=2 to i do
        if f[i-1,j-1]>f[i-1,j] then f[i,j]:=a[i,j]+f[i-1,j-1]
                               else f[i,j]:=a[i,j]+f[i-1,j];
  end;
end;
procedure print;
var
  i:integer;
begin
  max:=0;
  for i:=1 to n do
    if f[n,i]>max then max:=f[n,i];
    writeln(max);
end;
begin
  init;
  dp;
  print;
end.