洛谷 P1025 数的划分

题目描述

将整数n分成k份，且每份不能为空，任意两个方案不相同(不考虑顺序)。

例如：n=7，k=3，下面三种分法被认为是相同的。

1，1，5; 1，5，1; 5，1，1;

问有多少种不同的分法。

输入输出格式

输入格式：
n，k (6 < <script type="math/tex" id="MathJax-Element-7"><</script>n<=200，2<=k<=6)

输出格式：
一个整数，即不同的分法。

输入输出样例

输入样例#1：
7 3
输出样例#1：
4
说明

四种分法为：1，1，5;1，2，4;1，3，3;2，2，3;

分析：题目要求k个盒子里必须都有球，那么就先在所有的盒子里都放一颗球，于是还剩下n-k颗。这n-k颗可以都放在一个盒子里，也可以放在两个盒子里，也可以放在三个盒子里……最多可以放在min(n-k,k)个盒子里，于是得到递推式dp[i,j]:=∑dp[i-j,i1] (i1∈(1,min(i-j,k)));

代码：

Var
    f:array[0..210,0..210] of longint;
    n,k,i,j,i1,j1:longint;
Function min(a,b:longint):longint;
    begin
        if a<b then exit(a);
        exit(b);
    end;
Begin
    readln(n,k);
    fillchar(f,sizeof(f),0);
    for i:=0 to n do begin
        f[i,i]:=1;
        f[i,1]:=1;
    end;
    for i:=3 to n do
        for j:=2 to min(i-1,k) do
            for i1:=1 to min(j,k) do
                f[i,j]:=f[i,j]+f[i-j,i1];
    writeln(f[n,k]);
End.