pascal递归信封问题

pascal递归

信封问题。某人写了n封信和n个信封，如果所有的信都装错了信封。求所有信都装错信封共有多少种不同情况。

求高手火速回答。

n从1到9,分别有0,1,2,9,44,265,1854,14833,133496.
对于第n个数的规律是这样的:f(1)=0;f(n)=f(n-1)*(n+1)-1+(n mod 2)*2;你可以验算一下.
递归法程序如下:
program sgxf;
var n:longint;
function f(x:longint):longint;
begin
if x=1 then f:=0
else if x=2 then f:=1;
else f(x):=f(x-1)*(n+1)-1+(x mod 2)*2;
end;
begin
readln(n);
writeln(f(n));
end.
如果编译器允许,你可以用int64类型.

这是程序

var n,ans:longint; a:array[1..10]of integer; yes:array[1..10]of boolean;

procedure dfs(deep:integer); var i,j:integer; begin if deep>n then ans:=ans+1 else for i:=1 to n do if (yes[i])and(i<>deep) then begin yes[i]:=false; a[deep]:=i; dfs(deep+1); yes[i]:=true; end; end;

begin fillchar(yes,sizeof(yes),true); readln(n); dfs(1); writeln(ans); readln end.

这是用深度搜索的方法写的程序，每次枚举每一位可以放的数字，并采用回溯法遍历所有可能的结果。

1-10分别是：0,1,2,9,44,265,1854,14833,133496,1334961

这题是递推题,楼上找出的规律是正确的.为了最大程度的优化,不应该用递归,而应该用循环. var n,s:longint; begin readln(n); s:=1; repeat s:=s*n; dec(n); until(n<=1); end.