Tyvj P1079 数字三角形（三） 题解

 菜啊，这么水的题。。。。。

必须经过N div 2，N div 2 这个点，也就是说，在N div 2这一行里，只有[N div 2，N div 2]这个点权值跟原先一样，其它点只要变成-∞，那么程序就完全可以保证在走到N div 2 这一行时其它点都不选，而只选N div 2。 P1084与此题基本完全相同，读者可以去试试。

 

 

 program P1079; var n,mx,my,temp:longint; a,f:array [0..25,0..25] of longint; procedure init; var i,j:longint; begin readln(n); for i:=1 to n do begin for j:=1 to i do read(a[i,j]); readln; end; mx:=n div 2; my:=n div 2; for i:=1 to mx do if i<>my then a[mx,i]:=-maxlongint; end; function max(x,y:longint):longint; begin if x>y then exit(x) else exit(y); end; procedure dp; var i,j:longint; begin for i:=1 to n do f[n,i]:=a[n,i]; for i:=n-1 downto 1 do begin for j:=1 to i do begin f[i,j]:=max(f[i+1,j],f[i+1,j+1])+a[i,j]; end; end; end; begin assign(input,'P1079.in'); reset(input); assign(output,'P1079.out'); rewrite(output); init; dp; writeln(f[1,1]); readln(n); close(input); close(output); end.