2012年11月5日 星期一

摺紙


一張紙0.5cm厚


對折

1次為1cm厚
2次為2cm厚
3次為4cm厚

地球至太陽距離為1億五千萬公里
試問要折幾次才能到達。
張貼者： 於

6 則留言:

  1. 匿名2012年11月5日 清晨7:47

    Dim distance As Double
    Dim ori As Double
    Private Sub Form_Load()
    ori = 0.5
    distance = 150000000000#
    i = 0

    Do
    ori = ori * 2
    i = i + 1
    Loop Until ori > distance

    Open App.Path & "\out.txt" For Output As #1
    Print #1, i
    Close #1
    End Sub

    回覆刪除
  2. 匿名2012年11月19日 上午8:08

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\out.txt" For Output As #1
    n = 0.5
    Do
    n = n * 2
    i = i + 1
    Loop Until n > 15000000000000#
    Print #1, i
    Close #1
    End
    End Sub

    回覆刪除
  3. 匿名2012年11月19日 下午2:58

    Private Sub Form_Load()
    Me.Hide
    n = 0.5
    Do Until n >= Val(150000000000#)
    i = i + 1
    n = n * 2
    Loop
    Open App.Path & "\out.txt" For Output As #1
    Print #1, i
    Close
    End
    End Sub

    回覆刪除
  4. 匿名2012年12月22日 下午2:25

    復陞終點多一個0

    Bob &　KiKi　程式正確

    回覆刪除
  5. 匿名2013年12月16日 下午2:44

    Dim distance As Double
    Dim ori As Double
    Private Sub Form_Load()
    Me.Hide
    ori = 0.5
    distance = 150000000000#
    i = 0
    Do
    ori = ori * 2
    i = i + 1
    Loop Until ori > distance
    Open App.Path & "\out.txt" For Output As #2
    Print #2, i
    Close
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)