作业帮排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中（n>=k,且盒子不允许为空）的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3时,S（n,k）等于多少?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 05:47:34
排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中（n>=k,且盒子不允许为空）的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3时,S（n,k）等于多少?
排列组合问题 PASCAL程序都可以,
将n个不同颜色的球放入k个无标号的盒子中（n>=k,且盒子不允许为
空）的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3
时,S（n,k）等于多少?
排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中（n>=k,且盒子不允许为空）的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3时,S（n,k）等于多少?
S（n,k）=13
例如n=4,k=3时S(4,3)=6 ,n>=k,且盒子不允许为
空 所以 组合是C4-2 球放置是1 1 2.
当n=6,k=3 分3种 一种是 4.1.1 1,2,3 和 2,2,2
4.1.1 是 C6-4=15
1.2.3 是 C6-3+C3-2=20
2.2.2 是 C6-2+C4-2=21
S（n,k）=15+20+21=56
这个其实是有公式的，不过有点麻烦，下面是组合的生成法程序：
var
a:array[0..20] of longint;
m,n,i,j:longint;
begin
readln(m,n);
for i:=0 to n do
a[i]:=i;
while a[0]=0 do...
全部展开
这个其实是有公式的，不过有点麻烦，下面是组合的生成法程序：
var
a:array[0..20] of longint;
m,n,i,j:longint;
begin
readln(m,n);
for i:=0 to n do
a[i]:=i;
while a[0]=0 do
begin
for i:=1 to n-1 do
write(a[i],' ');
writeln(a[n]);
j:=n;
while a[j]=m-n+j do
j:=j-1;
a[j]:=a[j]+1;
for i:=j+1 to n do
a[i]:=a[i-1]+1;
end;
end.
收起
540 C63*(3*3*3)