ex0410.f90

来自「Fortran 95程序设计&Code-彭国伦」· 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