1. 代码没有问题。 2. 如果你遇到了问题,请描述你的问题,给出必要错误提示或截图。可能是对编译环境的操作问题~~ 3. 尽管你的代码是正确的,但仍然有更合适的改善空间。比如,不要害怕让编译器或计算机多运算几步。相对于让代码容易理解,计算机多计算几步,是非常值得的。 以下代码供参考。 [Fortran] 纯文本查看 复制代码 Program main Implicit None Real(8) , parameter :: PI = acos(-1.0) Real(8) :: r,s,c write(*,*) "请输入圆的半径" read(*,*) r s=PI*r*r c=2.d0*PI*r write(*,*) s write(*,*) c End Program main |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-25 09:22