ans0405.f90

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

program main
  implicit none
  type distance
    real meter, inch, cm
  end type
  type(distance) :: d
  write(*,*) "请输入长度:"
  read(*,*) d%meter
  d%cm = d%meter*100
  d%inch = d%cm/2.54
  write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inch
end program