UC知道pascal动规乘积最大问题给出程序帮解释下，（答的好追加到100分）
来源：百度知道 编辑：UC知道 时间：2024/07/04 06:30:36
问题描述：
今年是国际数学联盟确定的"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≤50，1≤K≤20）
第二行是一个长度为N的数字串。
输出：
结果显示在屏幕上，相对于输入，应输出所求得的最大乘积（一个自然数）。
样例：
输入
4 2
1231
输出
62
program tg20002;
const maxn=50;maxk=20 ;
type num=record
len:byte;
s:array[1..maxn] of byte;
end;
type str=string[maxn];
var n,k,i,j,l:integer;
st,temps:str;
m,tempm:num;
f:array[1..maxn] of num;
s1:array[1..maxn] of str;
procedure strtonum(str1:str;var num1:num);
var i:integer;
begin
num1.len:=
今年是国际数学联盟确定的"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≤50，1≤K≤20）
第二行是一个长度为N的数字串。
输出：
结果显示在屏幕上，相对于输入，应输出所求得的最大乘积（一个自然数）。
样例：
输入
4 2
1231
输出
62
program tg20002;
const maxn=50;maxk=20 ;
type num=record
len:byte;
s:array[1..maxn] of byte;
end;
type str=string[maxn];
var n,k,i,j,l:integer;
st,temps:str;
m,tempm:num;
f:array[1..maxn] of num;
s1:array[1..maxn] of str;
procedure strtonum(str1:str;var num1:num);
var i:integer;
begin
num1.len:=
这是添乘号问题，经典动规题。只是要用高精度。
这里用extended算了。
记忆化搜索
program NOIP_2000_2;
var
b:array[1..40,1..6] of extended;
k,long,temp:integer;
n:string;
procedure input;
var
i,j:integer;
begin
readln(long);
readln(k);
readln(n);
for i:=1 to long do
for j:=1 to k do
b[i,j]:=-1;
end;
function check(l,t:integer):extended;
var
i:integer;
j,max:extended;
begin
if t=0 then
begin
val(copy(n,l,long),j,temp);
check:=j;
end
else
begin
if b[l,t]=-1 then
begin
j:=0;max:=0;
for i:=l to long-t do
begin
val(copy(n,l,i-l+1),j,temp);
j:=j*check(i+1,t-1);
if j>max then max:=j;
end;
b[l,t]:=max;
end;
check:=b[l,t];
end;
end;
begin
input;
writeln(check(1,k):0:0);
end.