ex0410.f90

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

program ex0410
  real :: a,b,c
  a=0.5
  b=0.5
  c=sin(a)**2 + cos(b)**2
  write(*,*) "c=",c
  stop
end