数字三角形 Number Triangles （逆推）

题目描述

观察下面的数字金字塔。

写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。

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

在上面的样例中,从7 到 3 到 8 到 7 到 5 的路径产生了最大

输入输出格式

输入格式：

第一个行包含 R(1<= R<=1000) ,表示行的数目。

后面每行为这个数字金字塔特定行包含的整数。

所有的被供应的整数是非负的且不大于100。

输出格式：

单独的一行,包含那个可能得到的最大的和。

var
 s1,s2:array[0..101,0..101]of longint;
 i,j,n,s,t,max:longint;
begin
 read(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
    read(s1[i,j]);
   readln;
  end;
 for i:=n downto 1 do
  for j:=i downto 1 do
  begin
   if s1[i,j]+s2[i+1,j]>s1[i,j]+s2[i+1,j+1] then max:=s1[i,j]+s2[i+1,j]
                                            else max:=s1[i,j]+s2[i+1,j+1];
   s2[i,j]:=max;
   max:=0;
  end;
 write(s2[1,1]);
end.

用动态规划