用Fortran编写语句函数求万有引力，语句中必须含有implicit none
1个回答
展开全部
PROGRAM GRAVITY
IMPLICIT NONE
REAL*8::m1,m2,k,r,F
k=6.672e-11!万有引力常数
WRITE(*,*)"请输入第一个球的质量（kg）:"
READ(*,*)m1
WRITE(*,*)"请输入第二个球的质量（kg）:"
READ(*,*)m2
WRITE(*,*)"请输入两球之间的距离（m）:"
READ(*,*)r
F=k*m1*m2/r**2
WRITE(*,100)F
100 FORMAT("两个球之间的万有引力是",ES12.6,"N")
READ(*,*)
END PROGRAM GRAVITY
运行结果如下(取的是太阳的质量、地球的质量、日地距离算出太阳与地球之间的万有引力)：
万有引力计算结果是354.41万亿亿牛，也即3544.1亿亿千牛。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
