又有问题哦

[Joan1980]

试把下面的问题用结构化程序来编一段程序


假设有一张足够大的纸,厚度为0.0005m,试编程计算,当对折多少次后,其总厚度超过珠穆朗玛峰的高度(8848m)

[十豆三]

CLEAR
I=0.0005
P=8848
J=0
DO WHILE I<P
I=I*2
J=J+1
ENDDO
?"对折"+ALLTRIM(STR(J))+"次后超过8848M"

*结果为：对折25次后超过8848M

[dfwxj]

n=0
do while .t.
h=0.0005*2^n
n=n+1
if h>8848
exit
endi
endd
?n

[Joan1980]

谢谢两位的回答哦！