Essai

essai

Table des matières

Tests

IF

  • IF (expression_logique) THEN

    instructions

    ELSEIF (expression logique) THEN

    instructions

1
program demo_if
2
integer i /3/
3
if (i .eq. 2 .or. i .eq.1 .or. i .eq. 7 .or. i .eq. 8) then
4
    print*, 'I vaut 1 ou 2 ou 7 ou 8'
5
else if (i .eq. 5) then
6
    print*, 'I vaut 5'
7
else if (i .eq. 3) then
8
    print*,  'I vaut 3'
9
else
10
    print*, 'I vaut autre chose'
11
end if
12
end

Exécuter ce codehttps://onlinegdb.com/ZsyZjUDdWw

SELECT

  • SELECT CASE (expression)

    CASE (liste1)

    instructions

    CASE (liste2)

    instructions

    CASE default

    instructions

    END SELECT

1
program demo_select
2
integer i /3/
3
select case (i)
4
case (1,2,7,8)
5
    print*, 'I vaut 1 ou 2 ou 7 ou 8'
6
case (5)
7
    print*, 'I vaut 5'
8
case (3)
9
    print*,  'I vaut 3'
10
case default
11
    print*, 'I vaut autre chose'
12
end select
13
end

Exécuter ce codehttps://onlinegdb.com/2YFmxPlMh

SELECT

  • SELECT CASE (expression)

    CASE (liste1)

    instructions

    CASE (liste2)

    instructions

    CASE default

    instructions

    END SELECT

1
program demo_select
2
integer i /3/
3
select case (i)
4
case (1,2,7,8)
5
    print*, 'I vaut 1 ou 2 ou 7 ou 8'
6
case (5)
7
    print*, 'I vaut 5'
8
case (3)
9
    print*,  'I vaut 3'
10
case default
11
    print*, 'I vaut autre chose'
12
end select
13
end

Exécuter ce codehttps://onlinegdb.com/2YFmxPlMh