if y end if en Fortran

Una decisión de navegación en una escalera if: bloques then, peldaños else if, end if al cierre.

program if_else
    implicit none
    integer :: wind_knots = 26

    ! Blocks close with end if; else if chains in between.
    if (wind_knots > 33) then
        print *, "Gale: stay in harbor"
    else if (wind_knots > 21) then
        print *, "Reef the main and go"
    else
        print *, "Fair wind, full sail"
    end if
end program if_else

Cómo funciona

1. if (wind_knots > 33) then abre la rama del vendaval.
2. else if (...) then encadena la decisión de rizar sin anidar.
3. Toda la construcción cierra con un solo end if.

Palabras clave y builtins usados aquí

• else
• end
• if
• implicit
• integer
• none
• print
• program
• then

El intento, en números

Líneas

13

Caracteres a escribir

297

Tokens

43

Ritmo de tres estrellas

75 tpm

Al ritmo de tres estrellas de 75 tokens por minuto, este intento toma unos 34 segundos.

Escribe este fragmento

Paso 1 de 3 en Control de flujo; paso 7 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →