高精度的进制运算.pptVIP

计算s行的状态转移方程 function calc(s:longint):anstype; var i,j,l:longint; temp1,temp2:anstype; { fillchar(f,sizeof(f),0); /*状态转移方程初始化为０*/ for i←1 to m do f[i,i]←map[s,i]*2; /*f[i,i]为s行的第i个元素值＊２*/ for l←2 to m do /*枚举区间长度*/ for i←1 to m-l+1 do /*枚举区间首指针*/ { j←i+l-1; /*计算尾指针*/ temp1←(f[i+1,j]+map[s,i])*2; /*取区间首元素*/ temp2←(f[i,j-1]+map[s,j])*2; /*取区间尾元素*/ if temp1≥temp2 /*取两个方案的大者作为该区间的状态转移方程值*/ then f[i,j]←temp1 else f[i,j]←temp2 }; calc←f[1,m]/*返回s行的状态转移方程值*/ }; 主程序 readln(n,m); /*读矩阵规模*/ for i←1