caiweiwenjs 2008-12-05 20:45:00
点我顶贴
收藏
删除
递归方法！
program rqnoj332；
var
n:longint；
function sur(n:longint):longint；
var i,t:longint；
begin
if (n=1)or(n=0) then exit(1)；
if n=2 then exit(2)；
if n=3 then exit(5)；
if n=4 then exit(14)；
if n=6 then exit(132)；
if n>3 then
begin
t:=0；
for i:=0 to n-1 do
t:=t+sur(i)*sur(n-1-i)；
sur:=t；
end；
end；
begin
readln(n)；
writeln(sur(n))；
end.