ex0503.f90

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

program ex0503
implicit none
  integer rain, windspeed

  write(*,*) "Rain:"
  read(*,*) rain
  write(*,*) "Wind:"
  read(*,*) windspeed

  if ( rain>=500 .or. windspeed >=10 ) then
    write(*,*) "停止上班上课"
  else
    write(*,*) "照常上班上课"
  end if

stop
end