用Fortran编写语句函数求万有引力，语句中必须含有implicit none

Question

如题所述

Answer 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亿亿千牛。