最大乘积

最大乘积

今年是国际数学联盟确定的“2000——世界数学年”，又恰逢我国著名数学家华罗庚先生诞辰90周年。在华罗庚先生的家乡江苏金坛，组织了一场别开生面的数学智力竞赛的活动，你的一个好朋友XZ也有幸得以参加。活动中，主持人给所有参加活动的选手出了这样一道题目：

设有一个长度为N的数字串，要求选手使用K个乘号将它分成K+1个部分，找出一种分法，使得这K+1个部分的乘积能够为最大。

同时，为了帮助选手能够正确理解题意，主持人还举了如下的一个例子：

有一个数字串：312， 当N=3，K=1时会有以下两种分法：

1） 3*12=36

2） 31*2=62

  这时，符合题目要求的结果是：31*2=62

  现在，请你帮助你的好朋友XZ设计一个程序，求得正确的答案。

 输   入  

  程序的输入共有两行：

  第一行共有2个自然数N，K（6≤N≤40，1≤K≤6）

  第二行是一个长度为N的数字串。

 输   出  

  结果显示在屏幕上，相对于输入，应输出所求得的最大乘积（一个自然数）。

 样   例  

输入

4  2

1231

输出

62

分析： 本题可以用数列的拆分情况作为状态，f[I,k] 表示前I项分成k段的最大乘积，用A[I，J]表示字符串中第I位到第J位所表示的数字，所以得到状态转移方程  f[I,k]:=max{f[j,k-1]*a[j+1,i]};

var
  s,ss:string;
  a:array[1..40,1..40] of longint;
  f:array[0..100,0..100] of longint;
  i,j,k,n,m,k1:longint;
function max(m,n:longint):longint;
begin
  max:=m;
  if n>m then max:=n;
end;
begin
  readln(n,k1);
  readln(s);
  fillchar(f,sizeof(f),0);
  for i:=1 to n do                   //输入处理
    for j:=i to n do
      begin
        ss:=copy(s,i,j-i+1);
        val(ss,a[i,j]);
      end;
  for i:=1 to n do                 //动态规划开始
    begin
      f[i,1]:=a[1,i];              //表示前I项分成1段就等于从第一项开始到第I 项的数
      for k:=2 to k1+1 do
        for j:=k-1 to i-1 do
          f[i,k]:=max(f[i,k],f[j,k-1]*a[j+1,i]);
    end;
  writeln(f[n,k1+1]);             //K1+1表示分成K1+1 段
end.

{按添加乘号的次数为阶段求解}
var
 a:array[1..100] of integer;
 s,f:array[0..100,0..100] of longint;
 i,j,k,n,l:longint;
 st:string;

function max(a,b:longint):longint;
 begin
 if a>=b then exit(a) else exit(b);
 end;


begin
assign(input,'mul.in');reset(input);
assign(output,'mul.out');rewrite(output);
readln(n,l);
readln(st);
for i:=1 to n do
 for j:=i to n do
   val(copy(st,i,j-i+1),s[i,j]);//将每一段字符数值转换储存

for i:=1 to n do begin//枚举长度
 f[i,1]:=s[1,i];//对分割一次的f[i,1]赋初值
 for j:=2 to l+1 do//枚举分割次数
  for k:=j-1 to i-1 do//枚举分割点
   f[i,j]:=max(f[i,j],f[k,j-1]*s[k+1,i])；//比较分割点去不同值时大小，储存最优解
end;
writeln(f[n,l+1]);//输出长为n,分割l次后的最优解
close(input);close(output);
end.

var
i,j,k,l,n:longint;
f:array[1..40,0..6] of int64;{f[i,j]为前I个数插J个乘号的最大值}
a:array[1..40,1..40] of int64;{a[i,j]为J到I组成的数字}
s:string;
function max(x,y:int64):int64;
begin
 if x>y then exit(x) else exit(y) ;
end;
begin
 assign(input,'noip2000.in');
 reset(input);
 assign(output,'noip2000.out');
 rewrite(output);
 readln(n,k);
 readln(s);
for i:=1 to n do
 for j:=i to n do
  val(copy(s,i,j-i+1),a[i,j]);{读a[i,j]}
 for i:=1 to n do{按数字个数划分阶段}
  begin
  f[i,0]:=a[1,i];{初始化}
  for j:=1 to k do{按乘号再划分}
   for l:=j to i-1 do{L为乘号位置}
   f[i,j]:=max(f[i,j],f[l,j-1]*a[l+1,i]);{状态转移方程}
  end;
  writeln(f[n,k]);
  close(input);
  close(output);
 end.