请MOZ和Matodied看看 — 编程爱好者社区

沙发

剑圣风暴 [专家分：450] 发布于 2007-07-23 12:28:00

板凳

Matodied [专家分：7560] 发布于 2007-07-23 13:40:00

好像就是求5个数中取3个排列的。

排列的程序:
DECLARE SUB find (i!)
CLS
DIM SHARED m, n
m = 5: n = 3
DIM SHARED a(n)
find 1
END

SUB find (i)
FOR j = 1 TO m
    a(i) = j: f = 1
    FOR k = 1 TO i - 1
        IF a(i) = a(k) THEN f = 0: EXIT FOR
    NEXT k
    IF f THEN
       IF i < n THEN
          find i + 1
       ELSE
          FOR k = 1 TO n: PRINT a(k); : NEXT k: PRINT
       END IF
    END IF
NEXT j
END SUB

3 楼

yfyf [专家分：440] 发布于 2007-07-24 09:38:00

DECLARE SUB find (i!)
CLS
DIM SHARED m, n
m = 5: n = 3
DIM SHARED a(n)
find 1
END

SUB find (i)
FOR j = 1 TO m
    a(i) = j: f = 1
    FOR k = 1 TO i - 1
        IF a(i) = a(k) THEN f = 0: EXIT FOR
    NEXT k
    IF f THEN
       IF i < n THEN
          find i + 1
       ELSE
          FOR k = 1 TO n: PRINT a(k); : NEXT k: PRINT
       END IF
    END IF
NEXT j
END SUB

4 楼

bond007 [专家分：130] 发布于 2007-07-31 11:53:00

DECLARE SUB find (i!)
CLS
DIM SHARED m, n
m = 5: n = 3
DIM SHARED a(n)
find 1
END

SUB find (i)
FOR j = 1 TO m
    a(i) = j: f = 1
    FOR k = 1 TO i - 1
        IF a(i) = a(k) THEN f = 0: EXIT FOR
    NEXT k
    IF f THEN
       IF i < n THEN
          find i + 1
       ELSE
          FOR k = 1 TO n: PRINT a(k); : NEXT k: PRINT
       END IF
    END IF
NEXT j
END SUB

5 楼

Matodied [专家分：7560] 发布于 2007-07-31 22:09:00

楼上的用户名是抄人家007bond的。

您尚未登录，请登录后再回复。点此登录或注册

主题：请MOZ和Matodied看看

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段