ex0409.f90

来自「fortran 95书的源程序全集」· F90 代码 · 共 7 行

program ex0409
  real :: a
  a=3.14159/2.0
  write(*,*) "sin(",a,")=",sin(a)
  stop
end