Pascal问题:均匀划分有两个正整数K与P,然后将K分成P个部分:K1,K2,……Kp,要求找出一种分法,满足:K1+K2+……+Kp=K,并使K1×K2×……×Kp为最大.例如:K=4,P=2,则分法有:4+0=43+1=42+2=4
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 20:27:37
![Pascal问题:均匀划分有两个正整数K与P,然后将K分成P个部分:K1,K2,……Kp,要求找出一种分法,满足:K1+K2+……+Kp=K,并使K1×K2×……×Kp为最大.例如:K=4,P=2,则分法有:4+0=43+1=42+2=4](/uploads/image/z/3868154-26-4.jpg?t=Pascal%E9%97%AE%E9%A2%98%EF%BC%9A%E5%9D%87%E5%8C%80%E5%88%92%E5%88%86%E6%9C%89%E4%B8%A4%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0K%E4%B8%8EP%2C%E7%84%B6%E5%90%8E%E5%B0%86K%E5%88%86%E6%88%90P%E4%B8%AA%E9%83%A8%E5%88%86%EF%BC%9AK1%2CK2%2C%E2%80%A6%E2%80%A6Kp%2C%E8%A6%81%E6%B1%82%E6%89%BE%E5%87%BA%E4%B8%80%E7%A7%8D%E5%88%86%E6%B3%95%2C%E6%BB%A1%E8%B6%B3%EF%BC%9AK1%EF%BC%8BK2%EF%BC%8B%E2%80%A6%E2%80%A6%EF%BC%8BKp%EF%BC%9DK%2C%E5%B9%B6%E4%BD%BFK1%C3%97K2%C3%97%E2%80%A6%E2%80%A6%C3%97Kp%E4%B8%BA%E6%9C%80%E5%A4%A7.%E4%BE%8B%E5%A6%82%EF%BC%9AK%3D4%2CP%3D2%2C%E5%88%99%E5%88%86%E6%B3%95%E6%9C%89%EF%BC%9A4%EF%BC%8B0%EF%BC%9D43%EF%BC%8B1%EF%BC%9D42%EF%BC%8B2%EF%BC%9D4)
Pascal问题:均匀划分有两个正整数K与P,然后将K分成P个部分:K1,K2,……Kp,要求找出一种分法,满足:K1+K2+……+Kp=K,并使K1×K2×……×Kp为最大.例如:K=4,P=2,则分法有:4+0=43+1=42+2=4
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
Pascal问题:均匀划分有两个正整数K与P,然后将K分成P个部分:K1,K2,……Kp,要求找出一种分法,满足:K1+K2+……+Kp=K,并使K1×K2×……×Kp为最大.例如:K=4,P=2,则分法有:4+0=43+1=42+2=4
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.