递推和递归(718KB).pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * procedure f(k:integer) //搜索第k层结点（向第k个位置放数） begin var i:integer; if k=n+1 then begin for i:=1 to n do write(a[i]);writeln;end // 如果搜索到一条路径，则输出一种解 else for i:=1 to n do//每一个结点可以分解出n个子结点； if b[i]=0 then //如果能生成第k层的第i个结点； begin a[k]:=i; //第k个位置为数字i； b[i]:=1; //标记数字i已用 f(k+1); //扩展第k层的第i个结点(向第k+1个位置放数) b[i]:=0; //向上回溯，并恢复数据 end; end; 我们用递归过程来描述 “解答