2012年7月12日 星期四

空間切割


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

1
2









範例輸出 ：








2 


4
















張貼者：



於






































1 則留言:








  1. 匿名2012年7月12日 下午4: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, x
    Print #2, abc(x)
    Loop
    Close
    Close
    End
    End Sub
    Function abc(a)
    ans = 1
    c = 1
    For i = 1 To a
    ans = ans + c
    c = c + i
    Next
    abc = ans
    End Function
    回覆刪除




























        

      









訂閱：
張貼留言 (Atom)