|
网上贸易 创造奇迹! 阿里巴巴 Alibaba Powered By Dvbbs Version 7.1.0 Copyright ©2003 - 2006 QTHome.Org 页面执行时间 00.10938 秒, 3 次数据查询 |
 |
| 以文本方式查看主题 - 趣题之家 (http://www.qthome.org/bbs/index.asp) -- 算法艺术 (http://www.qthome.org/bbs/list.asp?boardid=38) ---- 回溯算法求解？？ (http://www.qthome.org/bbs/dispbbs.asp?boardid=38&id=41) |
| -- 作者：God -- 发布时间：9/26/2003 12:51:51 PM -- 回溯算法求解？？ 请求一个程序：求1...n个数的全排列！！！ 请斑竹帮忙！！ 尽快回复！！！！ |
| -- 作者：趣题之主 -- 发布时间：9/30/2003 12:19:33 PM -- 回溯算法求解？？ 排列的生成：（1..n） procedure solve(dep:integer); var i:integer; begin if dep=n+1 then begin writeln(s);exit; end; for i:=1 to n do if not used then begin s:=s+chr(i+ord(\'0\'));used:=true; solve(dep+1); s:=copy(s,1,length(s)-1); used:=false; end; end; |
| -- 作者：六子 -- 发布时间：9/21/2004 10:20:28 PM -- 值得一看 |
| -- 作者：wwmfeng -- 发布时间：9/23/2004 12:03:08 PM -- 这个论坛也要吃程序吗 |
| -- 作者：趣题之主 -- 发布时间：9/23/2004 10:22:11 PM -- 解释一下什么叫吃程序？ [此贴子已经被作者于2004-9-23 22:23:37编辑过]
|
| -- 作者：wwmfeng -- 发布时间：9/24/2004 1:21:15 PM -- [i ]如果不打空格就会变成斜体 |
| -- 作者：趣题之主 -- 发布时间：9/25/2004 7:26:45 PM -- 这倒是一个问题。只是如果去掉就不能正确显示斜体，不知你对此有何看法？我会尽量按照大家的要求做的。 |
| -- 作者：ppatsname -- 发布时间：11/8/2004 7:28:01 PM -- 是论坛代码有问题吗 |
| -- 作者：gdgzgq -- 发布时间：11/11/2004 9:52:59 PM -- 不是，是很多论坛上的通病！ |
| -- 作者：ppatsname -- 发布时间：11/12/2004 2:57:11 PM -- 很多论坛本来就是一样的啊 |
| -- 作者：remlostime -- 发布时间：3/11/2005 6:17:52 PM -- procedure sub(s:longint); var i,j:.longint; begin if s>n then begin end else for i:=1 to n do if b then begin a[s]:=i; b:=false; sub(s+1); b:=false; end; end;{n 为几位} |
|
|||