ans0402.f90

来自「这是FORTRAN 95第四章的课后答案」· F90 代码 · 共 10 行

program main
  implicit none
  real, parameter :: PI=3.14159
  real radius
  write(*,*) "请输入半径长"
  read(*,*) radius
  write(*,"(' 面积='f8.3)") radius*radius*PI
end program