POJ1283

题意:整数划分问题,将整数N分为K份,每份都不为0.求方案数.

分析:DP,f[i,j]表示整数I,分为J份的方案数.

分两类进行转移:

1.分出来的j份中没有含1的,f[i,j]=f[i-j,j].

2.分出来的j分中含有1,f[i,j]=f[i-1,j-1];

合起来f[i,j]=f[i-1,j-1]+f[i-j,j];

特殊的f[i,i]=1.

code:

var   f:array[0..201,0..201] of int64;
      n,k,i,j:longint;

begin
      for i:=1 to 201 do f[i,i]:=1;

      for i:=2 to 201 do
         for j:=1 to i-1 do
         begin
               f[i,j]:=f[i-1,j-1];
               inc(f[i,j],f[i-j,j]);
         end;

      readln(n,k);
      while n+k<>0 do
      begin
            writeln(f[n,k]);
            readln(n,k);
      end;
end.