主题：[讨论]MOZ能讲讲全排列的算法吗,不要源代码
强强
[专家分：4740] 发布于 2009-04-11 17:41:00
MOZ能讲讲全排列的算法吗,不要源代码
回复列表 （共5个回复）
沙发
moz [专家分：37620] 发布于 2009-04-11 19:20:00
你说的是排列组合吗？
[url]http://bbs.pfan.cn/post-128367.html[/url]
板凳
强强 [专家分：4740] 发布于 2009-04-11 20:29:00
不错
3 楼
强强 [专家分：4740] 发布于 2009-04-11 20:36:00
[quote]玩过且喜欢的游戏:NFS9，KOF97[/quote]
我没玩过NFS9,但我非常喜欢KOF97
4 楼
phile [专家分：2310] 发布于 2009-07-31 09:10:00
所谓排列组合一般用生成找发展位的方法！
5 楼
phile [专家分：2310] 发布于 2009-07-31 09:10:00
如
CLS
INPUT N
DIM A(N)
S=1
FOR I=1 TO N
INPUT A(I)
S=S*I
NEXT I
FOR I=1 TO S
FOR J=1 TO N
PRINT USING"#";A(I);
NEXT J
PRINT " ";
K=N
DO WHILE A(K)<=A(K-1)
K=K-1
LOOP
J=N
DO WHILE A(J)<=A(K-1)
J=J-1
LOOP
SWAP A(J),A(K-1)
FOR H=K TO N-1
FOR P=H+1 TO N
IF A(H)>A(P) THEN SWAP A(H),A(P)
NEXT P,H
NEXT I
组合
CLS
INPUT N,M
DIM A(M),B(M)
FOR I=1 TO M
INPUT A(I)
B(I)=I
NEXT I
DO WHILE B(0)=0
FOR J=1 TO M
PRINT USING"#";A(B(J));
NEXT J
PRINT " ";
K=M
DO WHILE B(K)=N-M+K
K=K-1
LOOP
B(K)=B(K)+1
FOR J=K+1 TO M
B(J)=B(J-1)+1
NEXT J
LOOP
END
我来回复
您所在位置：