Код IT
← Каталог

Управляющие конструкции и операторы Fortran — Что попробовать

Фрагмент из «Управляющие конструкции и операторы Fortran»: Что попробовать.

fortran fortranencyclopedia5 embed URL статья в энциклопедии
Fortran main.f90 
integer :: sign_code
if (x < 0.0) then
   sign_code = -1
else if (x == 0.0) then
   sign_code = 0
else
   sign_code = 1
end if

select case (sign_code)
case (-1)
   print *, 'negative'
case (0)
   print *, 'zero'
case (1)
   print *, 'positive'
end select
integer :: sign_code
if (x < 0.0) then
   sign_code = -1
else if (x == 0.0) then
   sign_code = 0
else
   sign_code = 1
end if

select case (sign_code)
case (-1)
   print *, 'negative'
case (0)
   print *, 'zero'
case (1)
   print *, 'positive'
end select