nmgwddj 发表于 2010-3-13 02:09:49

把一张纸折叠51次 算算他有多高！(以解决)

本帖最后由 nmgwddj 于 2010-3-13 11:12 编辑

想象一下，你手里有一张足够大的白纸。现在，你的任务是，把它对折叠51次。那么，它有多高？

假设一张纸就是0.008CM

用最简单的AU3语言表现出来。我自己做了个。CPU占用100% 可惜不行！

nmgwddj 发表于 2010-3-13 02:12:19

都知道是2个51次方 如果能简单的设置几个变量 从1算起。那就更好了:face (31):

afan 发表于 2010-3-13 02:16:04

0.008CM?太超薄了吧……msgbox(0, 0, 0.008 * 2 ^ 51 & ' CM')

nmgwddj 发表于 2010-3-13 02:19:17

我得意思是这样:face (29):
脑袋瓜子不好使了 刚写出来 看来得睡觉了$a = 1
$b = 1
While 1
        $c = $b * 2
        $b = $c
        $d = $a + 1
        $a = $d
        If $d = 51 Then
                ExitLoop
        Else
        EndIf
WEnd
MsgBox(0, '', $c)

afan 发表于 2010-3-13 02:22:19

MsgBox(0, 0, 0.008 * 2 ^ 51 & ' CM')

Local $N = 0.008
For $i = 1 To 51
        $N *= 2
Next
MsgBox(0, 0, $N & ' CM')

rockxeon 发表于 2010-3-13 02:22:31

这个，被雷到了，你那个不就是在*2吗，afan那个靠谱

afan 发表于 2010-3-13 02:26:51

呵呵~

rolaka 发表于 2010-3-13 12:37:22

= =+ 你们好疯狂 答案已经都出来了
页: [1]
查看完整版本: 把一张纸折叠51次 算算他有多高！(以解决)