Question

高中数学必修三问题

一个球从100m高处自由落下，每次着地后又跳回到原高度的一半再落下，编写程序，求当它第10次着地时，
（1）向下的运动共经过多少米？
（2）第10次着地后反弹多高？
（3）全程共经过多少米？

Answer 1

Sub 报价评分()

hx = 100 '...........每次向下高度(100为初始值)
hs = 0 '...............每次向上高度
sum_hx = 0 '.......向下路程合计
sum_hs = 0 '.......向上路程合计

For i = 1 To 10
sum_hx = sum_hx + hx
sum_hs = sum_hs + hs
hs = hx / 2
hx = hs
Next i

sum_h = sum_hx + sum_hs

Cells(1, 1).Value = sum_hx
Cells(2, 1).Value = hs
Cells(3, 1).Value = sum_h

End Sub

运行结果：
199.8046875
0.09765625
299.609375

EXCEL VBA编的。