Fortran - if-else if-else Costruisci

Un if Il costrutto dell'istruzione può avere uno o più opzionali else-ifcostruisce. Quando ilif condizione fallisce, immediatamente seguita else-ifviene eseguito. Quando ilelse-if fallisce anche il suo successore else-if viene eseguita l'istruzione (se presente) e così via.

L'altro opzionale viene posto alla fine e viene eseguito quando nessuna delle condizioni precedenti è vera.

• Tutte le altre dichiarazioni (else-if e else) sono opzionali.

• else-if può essere utilizzato una o più volte.

• else deve essere sempre posizionato alla fine del costrutto e dovrebbe apparire solo una volta.

Sintassi

La sintassi di un file if...else if...else l'affermazione è -

[name:] 
if (logical expression 1) then 
   ! block 1   
else if (logical expression 2) then       
   ! block 2   
else if (logical expression 3) then       
   ! block 3  
else       
   ! block 4   
end if [name]

Esempio

program ifElseIfElseProg
implicit none

   ! local variable declaration
   integer :: a = 100
 
   ! check the logical condition using if statement
   if( a == 10 ) then
  
      ! if condition is true then print the following 
      print*, "Value of a is 10" 
   
   else if( a == 20 ) then
  
      ! if else if condition is true 
      print*, "Value of a is 20" 
  
   else if( a == 30 ) then
   
      ! if else if condition is true  
      print*, "Value of a is 30" 
  
   else
   
      ! if none of the conditions is true 
      print*, "None of the values is matching" 
      
   end if
   
   print*, "exact value of a is ", a
 
end program ifElseIfElseProg

Quando il codice precedente viene compilato ed eseguito, produce il seguente risultato:

None of the values is matching
exact value of a is 100