2010年10月11日 星期一

空間切割

內容 ：
對任意正整數n，空間中的n 個平面最多可將空間切成幾個區域？
輸入說明 ：

1
2
範例輸出 ：



2 
4













張貼者：



於





















標籤：
,


















2 則留言:








  1. 寫寫程式2010年10月11日 下午3:11
    Dim Q As Long
    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, Q
    Print #2, Space(Q)
    Loop
    Close #2
    Close #1
    End
    End Sub
    Public Function Space(ByVal Q As Long) As Long
    If Q = 1 Then
    Space = 2
    Else
    Space = Space(Q - 1) + Q
    End If
    End Function


    BY 小白
    回覆刪除
  2. petrie2010年10月21日 晚上10:06
    小白，你這個公式是線段的，再向前進一步，才是空間的。
    input #1,q
    sum=2
    for i = 1 to q-1
    sum = sum + space(i)
    next 
    print #2,sum
    回覆刪除




























        

      









訂閱：
張貼留言 (Atom)