NOIP2007矩阵取数游戏 PASCAL

来源：百度知道 编辑：UC知道 时间：2024/07/04 11:39:45
帅帅经常跟同学玩一个矩阵取数游戏：对于一个给定的n*m的矩阵，矩阵中的每个元素aij据为非负整数。游戏规则如下：
1. 每次取数时须从每行各取走一个元素，共n个。m次后取完矩阵所有的元素；
2. 每次取走的各个元素只能是该元素所在行的行首或行尾；
3. 每次取数都有一个得分值，为每行取数的得分之和；每行取数的得分 = 被取走的元素值*2i，其中i表示第i次取数（从1开始编号）；
4. 游戏结束总得分为m次取数得分之和。
帅帅想请你帮忙写一个程序，对于任意矩阵，可以求出取数后的最大得分。
【输入】
输入文件game.in包括n+1行；
第一行为两个用空格隔开的整数n和m。
第2~n+1行为n*m矩阵，其中每行有m个用单个空格隔开
【输出】
输出文件game.out仅包含1行，为一个整数，即输入矩阵取数后的最大的分。
【输入输出样例1】
game.in game.out
2 3 82
1 2 4
3 4 2
【输入输出样例1解释】
第1次：第一行取行首元素，第二行取行尾元素，本次的氛围1*21+2*21=6
第2次：两行均取行首元素，本次得分为2*22+3*22=20
第3次：得分为3*23+4*23=56。总得分为6+20+56=82
【输入输出样例2】
game.in game.out
1 4 122
4 5 0 5
【输入输出样例3】
game.in game.out
2 10 316994
96 56 54 46 86 12 23 88 80 43
16 95 18 29 30 53 88 83 6

每次取两端的最小值然后在按规则运算

dp+高精

pascal:
program game;
type st=array[0..30] of longint;
var ans:st;f:array[1..80,1..80] of st;a:array[1..80] of longint;
m,n:longint;
procedure add(var x:st;y,z:st);
var temp,i:longint;
begin
temp:=0;
if y[0]>z[0] then x[0]:=y[0] else x[0]:=z[0];
for i:=1 to x[0] do
begin
temp:=y[i]+z[i]+temp;
x[i]:=temp mod 10000;
temp:=temp div 10000;
end;
if temp>0 then begin inc(x[0]); x[x[0]]:=temp;end;
end;

procedure mul(var x:st);
var temp,i:longint;
begin
temp:=0;
for i:=1 to x[0] do
begin
temp:=x[i]*2+temp;
x[i]:=temp mod 10000;
temp:=temp div 10000;
end;
while temp>0 do begin inc(x[0]);x[x[0]]:=temp mod 10000;temp:=temp div 10000;end;
end;

procedure plus(var x:st;y:st;z:longint);
var i:longint;
begin
x:=y;inc