ans0403.f90

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

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