Wikioi 1017 乘积最大

最新推荐文章于 2019-11-09 08:58:26 发布

3dWS232

最新推荐文章于 2019-11-09 08:58:26 发布

阅读量481

点赞数

分类专栏： Wikioi 文章标签： Wikioi

本文链接：https://blog.csdn.net/zxy981111/article/details/38235825

版权

Wikioi 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

今年是国际数学联盟确定的“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

数据范围及提示 Data Size & Hintz

本题由于比较老，数据实际也比较小，用long long 即可通过

var n,k,i:integer;
    t,ans:int64;
    a:array[1..40] of char;

function s(sta,en:integer):int64;//这个函数用来计算从第sta到第en位的数字
var i:integer;
    st:string;
begin
  st:='';
  for i:=sta+1 to en do
    st:=st+a[i];
  val(st,s);
end;

procedure search(num,l:integer);//num代表放第几个乘号，l代表上一个乘号的位置
var i:integer;
    j:int64;
begin
  if num>k then
  begin
    j:=s(l,n);
    if j<>0 then//如果剩下的数等于0就不用做了，因为乘积总为0
    begin
      t:=t*j;
      if t>ans then
        ans:=t;
      t:=t div j;//这里也要回溯一下
    end;
  end
  else
  begin
    for i:=l+1 to n-k+num do//该乘号能放的位置
    begin
      j:=s(l,i);
      if j<>0 then
      begin
        t:=t*j;//保存当前结果
        search(num+1,i);//深搜下一层
        t:=t div j;//回溯
      end;
    end;
  end;
end;

begin
  readln(n,k);
  for i:=1 to n do
    read(a[i]);//每个数字都以字符形式读入
  ans:=0;//最终结果
  t:=1;//打擂台用的临时量
  search(1,0);//放第一个乘号，假设上一个乘号放在0位置（其实没有上一个乘号）
  writeln(ans);
end.
//Copyright (C) 2014 wikioi user12923 All rights reserved