Fortran Coder

标题: 为什么求不了圆的周长和半径 [打印本页]

作者: URMYH 时间: 2022-3-19 22:21
标题: 为什么求不了圆的周长和半径
不理解

屏幕截图 2022-03-19 221913.png (34.77 KB, 下载次数: 157)

作者: fcode 时间: 2022-3-20 21:39
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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)