Section 1.5 Number Triangles

最新推荐文章于 2024-07-08 10:55:08 发布

原创最新推荐文章于 2024-07-08 10:55:08 发布 · 585 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#output #pascal #input #function

USACO 1 专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一种使用动态规划解决寻找三角形路径中最大数值和的问题的方法。通过逐步迭代，更新每个节点的最大路径和，最终找到从顶点到底边的路径中数值之和最大的路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这是一道经典且容易的动态规划（dynamic programming）简称DP

状态转移方程很容易得出 f(i,j) = max(f(i,j) + max(f(i-1,j), f(i-1,j-1)),f(i,j);

当然此题没有复数所以直接Inc 即可本人一次AC

{
ID: yaoyuan4
PROG: numtri
LANG: PASCAL
}
Program numtri;
const
inf = 'numtri.in'; outf = 'numtri.out';
var
r, ans : longint;
f : array[0..1000,0..1000] of longint;
Function max(a, b : longint) : longint;
begin
   if a > b then exit(a) else exit(b);
end;
Procedure init;
var
   i, j : longint;
begin
   fillchar(f, sizeof(f), 0);
   ans := 0;
   assign(input, inf); reset(input);
   readln(r);
   for i := 1 to r do
    begin
     for j := 1 to i do
      read(f[i,j]);
     readln;
    end;
   close(input);
end;
Procedure work;
var
   i, j : longint;
begin
   for i := 1 to r do
    for j := 1 to i do
     inc(f[i, j], max(f[i-1, j], f[i-1, j-1]));
   for i := 1 to r do
    ans := max(ans, f[r, i]);
end;
Procedure print;
begin
   assign(output, outf); rewrite(output);
   writeln(ans);
   close(output);
end;
begin
init;
work;
print;
end.