Question

一个fortran问题，求大神帮助

题目：一球从100米高度自由落下，每次落地后反跳回原来高度的一半；再落下，求他第十次落地时，共经过多少米？第十次反弹多高？

Answer 1

! PROGRAM: Console8! PURPOSE: !球从100米高度自由落下，每次落地后反跳回原来高度的一半；再落下，求他第十次落地时，共经过多少米？第十次反弹多高？!!****************************************************************************
program Fall
implicit none

! Variables
REAL::h=100 !h是高度，初始值为100
REAL::m=0 !m是走过的路程，初始值为第一次下落的路程=0
INTEGER::i=1 !i是计数器

! Body of Console8
DO i=1,10 !整个过程可以看成10个路程递减的“下落-上升”过程
m=m+h !下落过程
h=h/2
m=m+h !反弹后的上升过程
ENDDO

m=m-h !由于求的是落地时的路程，所以需要减一次反弹的高度

WRITE(*,100)m,h
100 FORMAT('总共经过m=',F10.4,'米.',/,'第十次反弹的高度h=',F10.4,'米.')

pause
end program Fall

追问

用fortran编制程序，使之能够计算一个球面和球面的交线。假设球面的球心位坐标中心，平面为一个水平面。要求：使用子程序进行模块化编程。大神求助，再帮帮忙吧

Answer 2

第一个问题是等比数列求和问题：100×（1-0.5^10）/(1-0.5) =200（米）
第二个问题是求等比数列的第10项：100×0.5^9 = 0.20（米）