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

b) Aritmetikai és logikai IF

  1. Aritmetikai: kifejezés előjele alapján 3 elágazás

 

IF (aritmetikai kifejezés) utasítás1, utasítás2, utasítás3
Amennyiben az aritmetikai kifejezés előjele negatív, akkor az 1. elágazást (utasítás1-et), ha a kifejezés nulla, akkor a 2. elágazást (utasítás2-t), ha pozitív, akkor a 3. elágazást (utasítás3-at) végzi el a program.

 Példa: aritmetikaif.f90
 ha a < b           végrehajtja az 51-es cimkéjű utasítást
 ha a = b           végrehajtja az 52-es cimkéjű utasítást
 ha a > b           végrehajtja az 53-as cimkéjű utasítást
program aritmetikaif
 integer :: a,b
 a=18
 b=8

 if (a-b) 51,52,53

  51 write(*,*) b-a
  52 write(*,*) a
  53 write(*,*) a-b

end program aritmetikaif
Fordítása és futtatása:
gfortran aritmetikaif.f90 -o aritmetikaif.exe
./aritmetikaif.exe
Az eredmény:
 10
  1. Logikai: logikai kifejezést vizsgál, ha igaz végrehajtja az utasítást
IF (logikai kiejezés) utasítás

 

 Példa: logif.f90 Ha a változó (x) értéke kisebb, mint 0, akkor az abszolútérték (abs_x) az eredeti változó mínusz egyszerese.
program logif
 integer :: x,abs_x
 x=-2
 abs_x=x
 
 if (x < 0.0) abs_x=-x
 
 write(*,*) abs_x

end program logif

Fordítása és futtatása:

gfortran logif.f90 -o logif.exe
./logif.exe

Az eredmény:

2

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

Oldal tetejére | Vissza a főoldalra