2012年4月20日 星期五

0 與 1 的遊戲

內容 ：
有 1 個 bit，可以表示 0 與 1。
有 2 個 bit，可以表示 00，01，10，11。
有 n 個 bit，請產生所有 n 個 bit 所能表示的 2 進位數字。
輸入說明 ：
每行一個數字 n ( 0 < n < 15 )
代表 n 個bit
輸出說明 ：
請參考範例輸出
範例輸入 ：
1
2
範例輸出 ：
0
1
00
01
10
11
提示 ：
字串是你的好朋友
張貼者： 於

4 則留言:

  1. 匿名2012年4月20日 清晨7:40

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    Input #1, n
    Call a(n, "")
    Loop
    Close
    Close
    End
    End Sub
    Sub a(x, y)
    If x = Len(y) Then
    Print #2, y
    Else
    For i = 0 To 1
    Call a(x, y & i)
    Next
    End If
    End Sub

    回覆刪除
  2. 匿名2012年4月24日 清晨7:57

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    Input #1, n
    Call a(n, "")
    Loop
    Close #2
    Close #1
    End
    End Sub
    Sub a(x, y)
    If x = Len(y) Then
    Print #2, y
    Else
    For i = 0 To 1
    Call a(x, y & i)
    Next i
    End If
    End Sub

    回覆刪除
  3. 匿名2012年4月25日 清晨7:54

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    Input #1, n
    Call a(n, "")
    Loop
    Close #2
    Close #1
    End
    End Sub
    Sub a(x, y)
    If x = Len(y) Then
    Print #2, y
    Else
    For i = 0 To 1
    Call a(x, y & i)
    Next i
    End If
    End Sub

    回覆刪除
  4. 匿名2013年11月4日 晚上11:07

    Dim n As String
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    Input #1, n
    Call a("")
    Loop
    Close #2
    Close #1
    End
    End Sub


    Sub a(b)
    If Len(b) = Val(n) Then
    Print #2, b
    b = ""
    Else
    For i = 0 To 1
    Call a(b & i)
    Next i
    End If
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)