Funciones en Fortran

Una calculadora de propina pure: el nombre de la función es su variable de resultado.

program function_result
    implicit none
    print *, "tip on 48.60: ", tip(48.60, 20.0)
    print *, "tip on 12.75: ", tip(12.75, 15.0)

contains

    ! A pure function: no side effects, result named after itself.
    pure real function tip(total, pct)
        real, intent(in) :: total, pct
        tip = total * pct / 100.0
    end function tip
end program function_result

Cómo funciona

1. pure real function tip(total, pct) promete cero efectos secundarios.
2. Ambos argumentos son intent(in); asignar a tip fija el valor de retorno.
3. Las llamadas viven en expresiones como cualquier intrínseca: tip(48.60, 20.0).

Palabras clave y builtins usados aquí

• contains
• end
• function
• implicit
• intent
• none
• print
• program
• pure
• real

El intento, en números

Líneas

13

Caracteres a escribir

336

Tokens

60

Ritmo de tres estrellas

70 tpm

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

Escribe este fragmento

Paso 2 de 3 en Procedimientos; paso 14 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →