select case en Fortran

Bandas de profundidad enrutadas por select case: rangos abiertos, cerrados y un default.

program select_case
    implicit none
    integer :: depth_m = 42

    ! select case takes values and ranges; default catches the rest.
    select case (depth_m)
    case (:10)
        print *, "Snorkel water"
    case (11:40)
        print *, "Open-water dive"
    case (41:60)
        print *, "Deep dive: plan your stops"
    case default
        print *, "Submersible territory"
    end select
end program select_case

Cómo funciona

1. select case (depth_m) nombra el sujeto una sola vez.
2. case (:10) es todo hasta 10; case (11:40) es una banda cerrada.
3. case default atrapa lo que ninguna banda reclamó, y end select cierra.

Palabras clave y builtins usados aquí

• case
• end
• implicit
• integer
• none
• print
• program
• select

El intento, en números

Líneas

16

Caracteres a escribir

353

Tokens

55

Ritmo de tres estrellas

70 tpm

Al ritmo de tres estrellas de 70 tokens por minuto, este intento toma unos 47 segundos.

Escribe este fragmento

Paso 2 de 3 en Control de flujo; paso 8 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →