Bucles do en Fortran

El do contado, más cycle y exit dirigiendo desde adentro del cuerpo.

program do_loops
    implicit none
    integer :: i

    ! A counted do runs start, end, and an optional stride.
    do i = 2, 8, 2
        print *, "sled dog lap ", i
    end do

    ! cycle skips a pass; exit leaves the loop entirely.
    do i = 1, 10
        if (mod(i, 2) == 1) cycle
        if (i > 6) exit
        print *, "even and small: ", i
    end do
end program do_loops

Cómo funciona

1. do i = 2, 8, 2 corre inicio, fin, paso — la variable del bucle es dato de verdad.
2. cycle salta a la pasada siguiente cuando la vuelta es impar.
3. exit abandona el bucle entero cuando los números pasan de 6.

Palabras clave y builtins usados aquí

• cycle
• do
• end
• exit
• if
• implicit
• integer
• mod
• none
• print
• program

El intento, en números

Líneas

16

Caracteres a escribir

318

Tokens

61

Ritmo de tres estrellas

70 tpm

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

Escribe este fragmento

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

← Anterior Siguiente →