为什么求不了圆的周长和半径

URMYH

不理解

fcode

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