题意:整数划分问题,将整数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.