绿源官网 凌志:有关计算机的问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 02:25:03
请写出流程图和程序代码
1,设有一张纸为0.001mm后,面积足够大,将它不断地对折,问对折多少次数后,厚度可达到或超过珠穆朗玛峰的高度(8844.43米)?

2,小球下落问题:一个小球从100米高度自由落下,设每次落地后反跳回原高度的一半;再落下,求小球在第十次落地时,经过了几米?

流程图自己照著程序代码画
C:
int i,j=0;
for(i=0.001/1000;i<=8844.43;i=i*2)j++;
printf("靠!才%d次而已阿!!",j);
VB:
Dim i,j
i=0.001/1000
j=0
Do until i>=8844.43
j=j+1
i=2*i
Loop
MsgBox j&"次"

==============================
2.
C:
int i,j=100;ans=0;
for(i=1;i<11;i++){
ans+=(3/2)*j;
j=0.5*j;
}
printf("经过了%d米",j);
VB:
Dim i;j;ans
i=1
j=100
Do until i=10
ans=ans+(3/2)*j;
j=0.5*j;
i=i+1
Loop