2012年1月17日 星期二

摺紙

一張紙0.5cm厚


對折

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

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

6 則留言:

  1. 匿名2012年1月17日 晚上10:59

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\out.txt" For Output As #1
    x = 150000000000#
    i = 1
    ans = 1
    Do While i < x
    ans = ans + 1
    i = i * 2
    Loop
    Print #1, ans
    Close
    End
    End Sub

    Ans:39

    回覆刪除
  2. 匿名2012年1月26日 上午11:37

    作者已經移除這則留言。

    回覆刪除
  3. 匿名2012年1月26日 上午11:51

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

    回覆刪除
  4. 匿名2012年1月26日 中午12:46

    Private Sub Form_Load()
    Open App.Path & "\out.txt" For Output As #1
    x = 1.5 * 10 ^ 11
    i = 1
    ans = 1
    Do While i < x
    ans = ans + 1
    i = i * 2
    Loop
    Print #1, ans
    Close
    End
    End Sub

    回覆刪除
  5. 熊掌2012年2月7日 下午3:14

    小冰，晟晟，哲好，
    三個程式都正確。

    幾個小地方，
    一，這個距離有些大，定義個長整數，會容易些。
    二，乘法，除法是比較數的，用加法，是比較快的。i = i *2, i = i + i

    回覆刪除
  6. 熊掌2012年2月7日 下午3:15

    (哦，突然想起，2進位中的乘以2，也是超快的啦。就是在尾端加個0，就是了。)

    回覆刪除

訂閱： 張貼留言 (Atom)