ans0402.f90

来自「fortran95程序设计源程序（彭国伦）第四章」· F90 代码 · 共 10 行

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