4. Feltételes utasítások
- A
feltételes utasítások általános felépítése
- Egy
végrehajtandó utasítás esetén
- Több
végrehajtandó utasítás esetén
- Több
feltétel esetén
- Egymásba
ágyazott feltételek esetén
- Aritmetikai
és logikai IF
- Aritmetikai
IF
- Logikai
IF
- 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