排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中(n>=k,且盒子不允许为空)的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3时,S(n,k)等于多少?
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/22 16:51:05
![排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中(n>=k,且盒子不允许为空)的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.问当n=6,k=3时,S(n,k)等于多少?](/uploads/image/z/1706007-39-7.jpg?t=%E6%8E%92%E5%88%97%E7%BB%84%E5%90%88%E9%97%AE%E9%A2%98+PASCAL%E7%A8%8B%E5%BA%8F%E9%83%BD%E5%8F%AF%E4%BB%A5%2C%E5%B0%86n%E4%B8%AA%E4%B8%8D%E5%90%8C%E9%A2%9C%E8%89%B2%E7%9A%84%E7%90%83%E6%94%BE%E5%85%A5k%E4%B8%AA%E6%97%A0%E6%A0%87%E5%8F%B7%E7%9A%84%E7%9B%92%E5%AD%90%E4%B8%AD%EF%BC%88n%3E%3Dk%2C%E4%B8%94%E7%9B%92%E5%AD%90%E4%B8%8D%E5%85%81%E8%AE%B8%E4%B8%BA%E7%A9%BA%EF%BC%89%E7%9A%84%E6%96%B9%E6%A1%88%E6%95%B0%E8%AE%B0%E4%B8%BAS%28n%2Ck%29%2C%E4%BE%8B%E5%A6%82n%3D4%2Ck%3D3%E6%97%B6S%284%2C3%29%3D6.%E9%97%AE%E5%BD%93n%3D6%2Ck%3D3%E6%97%B6%2CS%EF%BC%88n%2Ck%EF%BC%89%E7%AD%89%E4%BA%8E%E5%A4%9A%E5%B0%91%3F)
排列组合问题 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)