Fortran 90 oktatóanyag >> Feltételes utasítások

4. Feltételes utasítások

  1. A feltételes utasítások általános felépítése
    1. Egy végrehajtandó utasítás esetén
    2. Több végrehajtandó utasítás esetén
    3. Több feltétel esetén
    4. Egymásba ágyazott feltételek esetén
  2. Aritmetikai és logikai IF
    1. Aritmetikai IF
    2. Logikai IF
  3. A SELECT CASE állítás

c) A SELECT CASE állítás

A Fortran 90-ben rendelkezésre áll a SELECT CASE állítás, amellyel szelektív végrehajtás történik egy feltételes
utasítás alapján.
Fontos: Csak integer, logikai és karakter változó alkalmazható, real típusú nem.
 SELECT CASE(relációs kifejezés)

   CASE (1. azonosító lista)
    állítások
   CASE (
2. azonosító lista)
   
állítások
   CASE (
3. azonosító lista)
   
állítások
   .............
   CASE (
n. azonosító lista)
   
állítások
   CASE DEFAULT
    alapértelmezett állítás

 END CASE

Az azonosító lista a következő formákban adható meg:

- value                            jellemző érték
- value1 : value2     value1 és value2 között értékek, melyek tartalmazzák a határokat is
                                           és value1 kisebb vagy egyenlő, mint value2
- value1 :                     az értékek nagyobbak vagy egyenlőek, mint value1
- : value2                     az értékek kisebbek vagy egyenlőek, mint value2

A CASE DEFAULT kifejezés az állításon belül bárhol lehet, de a legcélszerűbb
a végén megadni.

 Példa: case.f90 A program a hónap sorszáma alapján a hónap nevét írja ki a képernyőre.
program case

 integer :: honap
 honap=5

 select case(honap)
   case(1); write(*,*) 'jan'
   case(2); write(*,*) 'feb'
   case(3); write(*,*) 'mar'
   case(4); write(*,*) 'apr'
   case(5); write(*,*) 'maj'
   case default; write(*,*) 'undef'
 end select
end program case
Fordítása és futtatása:
gfortran case.f90 -o case.exe
./case.exe
Az eredmény:
maj


<< Előző | Következő >>

Oldal tetejére | Vissza a főoldalra