CODEVS 2055 集合划分

【题目描述】

对于从1到N（1<=N<=39）的连续整数集合，划分成两个子集合，使得每个集合的数字之和相等。

举个例子，如果N=3，对于{1，2，3}能划分成两个子集合，他们每个的所有数字和是相等的：{3} and {1,2}

这是唯一的一种分法（交换集合位置被认为是同一种划分方案，因此不会增加划分方案总数）。

如果N=7，有四种方法能划分集合{1，2，3，4，5，6，7}，每一种分法的子集合各数字和是相等的:

{1,6,7} and {2,3,4,5};{2,5,7} and {1,3,4,6};

{3,4,7} and {1,2,5,6};{1,2,4,7} and {3,5,6}

【输入】

一个正整数N，1<=N<=39

【输出】

一个数，划分集合的方法数。

【样例输入】

7

【样例输出】

4

【解题思路】

这是一只 背包型的DP，求方案的那种，f[i,j]表示前i个数的取值为j的方案数

正推 :     f[i,j]:=f[i-1,j]+f[i-1,j-i];

初始条件：f[1,1]:=1; f[1,0]:=1;

倒推（f[i,j]表示i~n个中取值为j）

f[i,j]:=f[i+1,j]+f[i+1,j-i];

初始条件：f[n,n]:=1; f[n,0]:=1;

 program t2;
 var n,sum,i,j:longint;
     f:array[..,..] of longint;
 begin
     read(n);
     sum:=(n+)*n div ;
     if sum mod = then//特判
     begin
         write();
         halt;
     end;
     sum:=sum div ;
     f[,]:=;//从前1个数中取数为1的方法为1中，下同
     f[,]:=;

     for i:= to n- do//默认n个在另一个数组里
         for j:= to (i+)*i div  do
         begin
             f[i,j]:=f[i-,j];
             if j-i>= then f[i,j]:=f[i,j]+f[i-,j-i];//防越界
         end;
     writeln(f[n-,sum]);
 end.