Fortran: se-allora costruisci

Un if… then consiste in un'espressione logica seguita da una o più istruzioni e terminata da un end if dichiarazione.

Sintassi

La sintassi di base di un file if… then l'affermazione è -

if (logical expression) then      
   statement  
end if

Tuttavia, puoi dare un nome al file if block, quindi la sintassi del file named if dichiarazione sarebbe, come -

[name:] if (logical expression) then      
   ! various statements           
   . . .  
end if [name]

Se l'espressione logica restituisce true, quindi il blocco di codice all'interno del file if…thenistruzione verrà eseguita. Se l'espressione logica restituiscefalse, quindi il primo set di codice dopo il end if istruzione verrà eseguita.

Diagramma di flusso

Esempio 1

program ifProg
implicit none
   ! local variable declaration
   integer :: a = 10
 
   ! check the logical condition using if statement
   if (a < 20 ) then
   
   !if condition is true then print the following 
   print*, "a is less than 20"
   end if
       
   print*, "value of a is ", a
 end program ifProg

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

a is less than 20
value of a is 10

Esempio 2

Questo esempio mostra un file named if blocco -

program markGradeA  
implicit none  
   real :: marks
   ! assign marks   
   marks = 90.4
   ! use an if statement to give grade
  
   gr: if (marks > 90.0) then  
   print *, " Grade A"
   end if gr
end program markGradeA