2010年7月30日 星期五

排列組合二

排列組合二
從檔案in.txt第一列讀入排列組合的項目n個，再讀入第二列數字m，從n個項目中，取出m個項目的組合，全部輸出到out.txt中。
輸入範例：
a b c 1 x
2

輸出範例：
ab
ac
a1
ax
bc
b1
bx
c1
cx
1x

張貼者： 於
標籤：

3 則留言:

  1. 阿揚2010年8月2日 晚上9:29

    Private Sub Form_Activate()
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Input #1, step
    step = Replace(step, " ", "")
    Input #1, num
    o = 1
    Call ans(step, st, num, o)
    Close #1
    Close #2
    End Sub

    Function ans(step, st, q, o)
    If Len(st) < q Then
    For i = o To Len(step)
    stm = Mid(step, i, 1)
    If InStr(st, stm) = 0 Then Call ans(step, st & stm, q, o + 1)
    o = o + 1
    Next i
    Else
    Print #2, st
    End If
    End Function

    回覆刪除
  2. 小白2010年8月4日 晚上10:11

    Dim StrQ, X, AnsSt
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Line Input #1, StrQ
    Input #1, X
    StrQ = Replace(StrQ, " ", "")
    Y = 1
    Call F(StrQ, ans, X, Y)
    Close #2
    Close #1
    End
    End Sub
    Public Function F(StrQ, ans, X, Y)
    If X > Len(ans) Then
    For i = Y To Len(StrQ)
    AnsSt = Mid(StrQ, i, 1)
    If InStr(ans, AnsSt) = 0 Then Call F(StrQ, ans & AnsSt, X, Y + 1)
    Y = Y + 1
    Next i
    Else
    Print #2, ans
    End If
    End Function

    回覆刪除
  3. 熊掌2010年8月6日 晚上7:55

    阿揚小白好，
    這題和另外一題都類似，你們解的很好。
    有一個小地方，還是注意一下，你們在迴圈頭的三個變數，在迴圈中有去變動，這是個小危險的地方。
    for i = y to len(strq)
    ...
    y = y +1
    next i
    在這題中，並不會出錯，但是，不是個好方式。
    比如說先用一個數，x=y，再將x拿來迴圈頭使用，for i = x to len(strq)

    回覆刪除

訂閱： 張貼留言 (Atom)