Free pascal程序乘积最大(maxtri.pas)今年是国际数学联盟确定的“2000—世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰90 周年.在华罗庚先生的家乡江苏金坛,组织了一场别开生面的数学智力
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/21 16:43:52
![Free pascal程序乘积最大(maxtri.pas)今年是国际数学联盟确定的“2000—世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰90 周年.在华罗庚先生的家乡江苏金坛,组织了一场别开生面的数学智力](/uploads/image/z/2573896-40-6.jpg?t=Free+pascal%E7%A8%8B%E5%BA%8F%E4%B9%98%E7%A7%AF%E6%9C%80%E5%A4%A7%28maxtri.pas%29%E4%BB%8A%E5%B9%B4%E6%98%AF%E5%9B%BD%E9%99%85%E6%95%B0%E5%AD%A6%E8%81%94%E7%9B%9F%E7%A1%AE%E5%AE%9A%E7%9A%84%E2%80%9C2000%E2%80%94%E4%B8%96%E7%95%8C%E6%95%B0%E5%AD%A6%E5%B9%B4%E2%80%9D%2C%E5%8F%88%E6%81%B0%E9%80%A2%E6%88%91%E5%9B%BD%E8%91%97%E5%90%8D%E6%95%B0%E5%AD%A6%E5%AE%B6%E5%8D%8E%E7%BD%97%E5%BA%9A%E5%85%88%E7%94%9F%E8%AF%9E%E8%BE%B090+%E5%91%A8%E5%B9%B4.%E5%9C%A8%E5%8D%8E%E7%BD%97%E5%BA%9A%E5%85%88%E7%94%9F%E7%9A%84%E5%AE%B6%E4%B9%A1%E6%B1%9F%E8%8B%8F%E9%87%91%E5%9D%9B%2C%E7%BB%84%E7%BB%87%E4%BA%86%E4%B8%80%E5%9C%BA%E5%88%AB%E5%BC%80%E7%94%9F%E9%9D%A2%E7%9A%84%E6%95%B0%E5%AD%A6%E6%99%BA%E5%8A%9B)
Free pascal程序乘积最大(maxtri.pas)今年是国际数学联盟确定的“2000—世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰90 周年.在华罗庚先生的家乡江苏金坛,组织了一场别开生面的数学智力
Free pascal程序
乘积最大(maxtri.pas)
今年是国际数学联盟确定的“2000—世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰
90 周年.在华罗庚先生的家乡江苏金坛,组织了一场别开生面的数学智力竞赛活动,你的
好朋友 XZ 也有幸得以参加.活动中,主持人给所有参加活动的选手出了这样一道题目:
设有一个长度为 N 的数字串,要求选手使用 K 个乘号将它分成 K+1 个部分,找出一种分法,
使得这 K+1 个部分的乘积最大.
同时,为了帮助选手能够理解题意,主持人还举了如下一个例子:
有一个数字串:312,当 N=3,K=1 时会有两种分法:
⑴3*12=36
⑵31*2=62
这时,符合题目要求的结果是:31*2=62.现在,请你帮助你的好朋友 XZ 设计一个程序,
求得正确的答案.
输入
程序的输入共有两行:
第一行共有 2 个自然数 N,K(2≤N≤40,1≤K≤6)
第二行是一个长度为 N 的数字串.
输出
结果显示在屏幕上,相对于输入,应输出所求得的最大乘积(一个自然数).
样例输入
4 2
1231
样例输出
62
var i,j,k,l,n,p :longint;
st,str :string;
a,f:array [1..50,1..50] of qword;
function max(a,b :qword) :qword;
begin
if a>b then max:=a
else max:=a;
end;
begin
readln(n,p);
read(str);
for i:=1 to n do
for j:=i to n do
begin
st:=copy(str,i,j-i+1);
l:=j-i+1;
val(st,a[i,j],l);
end;
for i:=1 to n do
f[i,1]:=a[1,i];
for i:=1 to p do
for j:=i+1 to n do
for k:=1 to j-1 do
f[j,i]:=max(f[k,i-1]*a[k+1,j],f[j,i]);
write(f[n,p]);
end.
请大神看看我编的程序有什么问题,并且求这题的正解,
Free pascal程序乘积最大(maxtri.pas)今年是国际数学联盟确定的“2000—世界数学年”,又恰逢我国著名数学家华罗庚先生诞辰90 周年.在华罗庚先生的家乡江苏金坛,组织了一场别开生面的数学智力
倒数第4行改为for k:=i to j do f[j,i]:=max(f[j,k-1]*a[k+1,j],f[j,i]);