tyvjp1084 数字三角形4

P1084 - 数字三角形4

From Admin    Normal (OI) 总时限：10s    内存限制：128MB

描述 Description

数字三角形必须经过某一个点，使之走的路程和最大

输入格式 InputFormat

第1行n，表示n行 <=25 第2到n+1行为每个的权值 第n+2行为两个数x,y表示必须经过的点

输出格式 OutputFormat

最大值

样例输入 SampleInput [复制数据]

2
1
1 1
1 1

样例输出 SampleOutput [复制数据]

2

数据范围和注释 Hint

各个测试点1s

时间限制 TimeLimitation

各个测试点1s

Delphi语言: 高亮代码由发芽网提供

program tyvj1084; var f,a:array[0..26,0..26] of int64; n,i,j,mi,mj:longint; maxn:int64; function max(a,b:int64):int64; begin if a>b then exit(a) else exit(b); end; begin readln(n); for i:=0 to n+1 do for j:=0 to n+1 do a[i,j]:=-maxlongint; for i:=1 to n do for j:=1 to i do read(a[i,j]); read(mi,mj); a[mi,mj]:=a[mi,mj]+maxlongint; f[1,1]:=a[1,1]; for i:=2 to n do for j:=1 to i do begin f[i,j]:=max(f[i-1,j],f[i-1,j-1])+a[i,j]; if f[i,j]>maxn then maxn:=f[i,j]; end; writeln(maxn-maxlongint); end.