数字金字塔
Time Limit:1000MS Memory Limit:65536K
Total Submit:394 Accepted:225
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
Source
MCQ
var
a,f:array[1..1000,1..1000] of longint;
n,i,j,max:longint;
begin
read(n);
for i:=1 to n do
for j:=1 to i do
read(a[i,j]);
f[1,1]:=a[1,1];//因为是顺推,所以开头无法累加(因为他上面没了呀╮(╯▽╰)╭)
for i:=2 to n do//i是第几行
begin
f[i,1]:=a[i,1]+f[i-1,1];//每一行第一个=它自己+上一行的第一个(右上)(它没左上啊)
for j:=2 to i do//j是第几个
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;
for i:=1 to n do//因为答案一定在最后一行,所以在最后一行打擂台
if f[n,i]>max then max:=f[n,i];
writeln(max);
end.