NOIP2003普及组复赛试题的问题 [复制链接]

NOIP2003普及组复赛试题的问题
题二、数字游戏（Game.pas）
【问题描述】丁丁最近沉迷于一个数字游戏之中。这个游戏看似简单，但丁丁在研究了许多天之后却发觉原来在简单的规则下想要赢得这个游戏并不那么容易。游戏是这样的，在你面前有一圈整数（一共n个），你要按顺序将其分为m个部分，各部分内的数字相加，相加所得的m个结果对10取模后再相乘，最终得到一个数k。游戏的要求是使你所得的k最大或者最小。
问题：相加所得的m个结果对10取模后再相乘，这句话是对10取模什么意思

嘿嘿！
我得不错吧！
   

Const Maxn=50;
      Maxm=9;
Var h:array[1..Maxn] of Integer;
    g:array[1..Maxn,1..Maxn] of LongInt;
    Fmin,Fmax:array[1..Maxn,1..Maxm] Of Longint;
    n,m,i,j,k,l:Integer;
    Max,Min,Tmax,Tmin,s:Longint;
    fi,fo:String;
Procedure readfile;
Begin
  Readln(n,m);
  For i:=1 to n do
  Readln(h);
End;
Procedure init;
Begin
  For i:=1 to n do
  For j:=i to n do
    Begin
    s:=0;
    For k:=i to j do s:=s+h[k];
    s:=s mod 10;
    If s<0 Then s:=10+s;
    g[i,j]:=s;
    End;
  For i:=1 to n do
  For j:=1 to m do
    Begin Fmin[i,j]:=1;  Fmax[i,j]:=1 End;
  For i:=1 to n do
    Begin
    Fmin[i,1]:=g[1,i];  Fmax[i,1]:=g[1,i]
    End
End;
Procedure move;
Var temp,p:Integer;
Begin
  temp:=h[1];
  For p:=1 to n-1 do
    h[p]:=h[p+1];
  h[n]:=temp;
End;
Procedure solute;
Begin
Max:=-Maxint; Min:=Maxint;
For l:=1 to n do
Begin
  Init;
  For i:=2 to n do
  For j:=2 to m do
    Begin
    Tmax:=-Maxint;
    Tmin:=Maxint;
    For k:=j-1 to i-1 do
      Begin
        If TMax<Fmax[k,j-1]*g[k+1,i] Then Tmax:=Fmax[k,j-1]*g[k+1,i];
        If TMin>Fmin[k,j-1]*g[k+1,i] Then Tmin:=Fmin[k,j-1]*g[k+1,i];
      End;
    Fmax[i,j]:=Tmax; Fmin[i,j]:=Tmin;
    End;
    If Max<Fmax[n,m] Then Max:=Fmax[n,m];
    If Min>Fmin[n,m] Then Min:=Fmin[n,m];
    move;
  End;
End;
Procedure Print;
Begin
Writeln(Min);
Writeln(Max);
End;
Begin
  Readfile;
  Solute;
  Print
End.

环形DP，单DP。

不就是DP么，有什么难的？

双动规

此题难！！
1·递归·仅3组通过
2·动态规划·很难！

和《乘法原理》相似

这题就是我以前参加时的，不过当时没做出来

此题难！！
1·递归·仅3组通过
2·动态规划·很难！

此题难！！
1·递归·仅3组通过
2·动态规划·很难！