作业帮pascal 数字三角形 找虫【例题1】数字三角形问题. 7 3 8 8 1 0 2 7 7 4 5 5 2 6 5示出了一个数字三角形宝塔.数字三角形中的数字为不超过100的正整数.现
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 10:32:25
pascal 数字三角形 找虫【例题1】数字三角形问题. 7 3 8 8 1 0 2 7 7 4 5 5 2 6 5示出了一个数字三角形宝塔.数字三角形中的数字为不超过100的正整数.现
pascal 数字三角形 找虫
【例题1】数字三角形问题.
7
3 8
8 1 0
2 7 7 4
5 5 2 6 5
示出了一个数字三角形宝塔.数字三角形中的数字为不超过100的正整数.现规定从最顶层走到最底层,每一步可沿左斜线向下或右斜线向下走.假设三角形行数≤100,编程求解从最顶层走到最底层的一条路径,使得沿着该路径所经过的数字的总和最大,输出最大值.输人数据：由文件输入数据,文件第一行是三角形的行数N.以后的N行分别是从最顶层到最底层的每一层中的数字.
如输入： 5
7
3 8
8 1 0
2 7 7 4
4 5 2 6 5
输出：30
program Project1;
var
a,b:array[1..100,1..100]of integer;
c,d,n:integer;
begin
readln(n);
for c:=1 to n do
begin
for d:=1 to c do
read(a[c,d]);
readln;
end;
b[1,1]:=a[1,1];
if n=1 then writeln(a[1,1])
else
begin
for c:=2 to n do
for d:=2 to c do
begin
if b[c-1,d-1]>=b[c-1,d] then
b[c,d]:=b[c-1,d-1]+a[c,d]
else b[c,d]:=b[c-1,d]+a[c,d];
if b[c,d]>n then n:=b[c,d];
end;
writeln(n);
end;
readln;
end.
pascal 数字三角形 找虫【例题1】数字三角形问题. 7 3 8 8 1 0 2 7 7 4 5 5 2 6 5示出了一个数字三角形宝塔.数字三角形中的数字为不超过100的正整数.现
program Project1;
var
a,b:array[0..101,0..101]of integer;
c,d,n,ans:integer;
begin
readln(n);
for c:=1 to n do
begin
for d:=1 to c do
read(a[c,d]);
readln;
end;
b[1,1]:=a[1,1];
if n=1 then writeln(a[1,1])
else
begin
for c:=2 to n do
for d:=1 to c do
begin
if b[c-1,d-1]>=b[c-1,d] then
b[c,d]:=b[c-1,d-1]+a[c,d]
else b[c,d]:=b[c-1,d]+a[c,d];
if b[c,d]>ans then ans:=b[c,d];
end;
writeln(ans);
end;
readln;
end.