Pascal问题：均匀划分

问题描述：

Pascal问题：均匀划分
有两个正整数K与P,然后将K分成P个部分：K1,K2,……Kp,要求找出一种分法,满足：K1＋K2＋……＋Kp＝K,并使K1×K2×……×Kp为最大.
例如：K=4,P=2,则分法有：
4＋0＝4
3＋1＝4
2＋2＝4
其中乘积最大者为：2×2＝4
输入：输入两个正整数K与P（2≤K≤35,P

1个回答分类：综合 2014-10-24

问题解答：

我来补答

var a,b,c1,c2,d1,d2,e1,e2,f1,f2:integer;
begin readln(a,b);
c1:=a div b;
c2:=(a div b)+1;
d1:=(a mod b)+b;
d2:=b-(c2*b-a);
b:=b-1;
for e1:=1 to b do f1:=f1*a;
f1:=f1*d1;
for e2:=1 to b do f2:=f2*a;
f2:=f2*d2;
if f1>=f2 then begin for e1:=1 to b do write(c1,'*');
write(d1,'=',f1);
end else begin for e2:=1 to b do write(c2,'*');
write(d2,'=',f2);
end;
readln;
end.

展开全文阅读

上一页：高数一指数函数

下一页：必修五第四单元