ans0403.f90

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

program main
  implicit none
  real grades
  write(*,*) "请输入成绩"
  read(*,*) grades
  write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0
end program