ex0431.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 10 行

program ex0431
implicit none
  integer :: a=1
  integer :: b=2
  real    :: c
  c=a/b 
! c=1/2=0, 虽然c是浮点数,但因为a,b是整数,计算a/b时会用整数去计算.
  write(*,"(F5.2)") c 
end