USACO 2.3 和为零

Description　　请考虑一个由1到N（N=3, 4, 5 ...
9）的数字组成的递增数列：1 2 3 ... N。　　现在请在数列中插入“+”表示加，或者“-”表示减，抑或是“
”表示空白，来将每一对数字组合在一起（请不在第一个数字前插入符号）。　　计算该表达式的结果并注意你是否得到了和为零。　　请你写一个程序找出所有产生和为零的长度为N的数列。Input　　单独的一行表示整数N (3 <= N <=
9)。Output　　按照ASCII码的顺序，输出所有在每对数字间插入“+”, “-”, 或 “
”后能得到和为零的数列。(注意:就算两个数字之间没有插入符号也应该保留空格)Sample Input

7

Sample Output

1+2-3+4-5-6+7

1+2-3-4+5+6-7

1-2 3+4+5+6+7

1-2 3-4 5+6 7

1-2+3+4-5+6-7

1-2-3-4-5+6+7

解题思路：先初始化，然后用深搜，当dep不等于n时继续往下搜，如果等于n的话就对目前结果进行处理，然后输出。

程序：

var

ph,num:array [0..9] of longint;

fh:array [1..3] of char;

n,tot:longint;

procedure init;

begin

fh[1]:=' ';

fh[2]:='+';

fh[3]:='-';

readln(n);

ph
:=2;

end;

procedure dfs(dep:longint);

var

i,ans:longint;

s,s1:string;

begin

if dep<>n then

begin

for i:=1 to 3 do

begin

ph[dep]:=i;

dfs(dep+1);

end;

end

else

begin

str(1,s);

tot:=0;

for i:=1 to n do

begin

case ph[i] of

1:begin

str(i+1,s1);

s:=s+s1;

end;

2:begin

inc(tot);

val(s,num[tot]);

str(i+1,s);

end;

3:begin

inc(tot);

val(s,num[tot]);

str(i+1,s);

s:='-'+s;

end;

end;

end;

ans:=0;

for i:=1 to tot do

inc(ans,num[i]);

if ans=0 then

begin

for i:=1 to n-1 do

write(i,fh[ph[i]]);

writeln(n);

end

else exit;

end;

end;

begin

init;

dfs(1);

end.