webeskycn 2009-10-29 06:54:00
点我顶贴
收藏
删除
program zydx；
var
i,m,ans:longint；
procedure dfs(mm,tot:longint)；
var
i:longint；
begin
if tot=m then begin inc(ans)； exit； end；
for i:=mm+1 to m-mm do dfs(i,tot+i)；
end；
begin
for i:=1 to 130 do
begin
ans:=0；
m:=i；
dfs(0,0)；
writeln(i,’ --> ’,ans-1)；
end；
end.
上面程序...在电脑上(至强CPU*8)跑了10分钟还没算完.....
我决定放弃交表了..........
老老实实推吧........