Temperature conversion: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 378: | Line 378: | ||
FUNCIÓN( Conversión Kelvin a Rankine, k) |
FUNCIÓN( Conversión Kelvin a Rankine, k) |
||
RETORNAR ( {k} POR (1.8), REDONDEADO AL DECIMAL(2) ) |
RETORNAR ( {k} POR (1.8), REDONDEADO AL DECIMAL(2) ) |
||
</lang> |
|||
<p>Another version:</p> |
|||
<lang Amazing Hopper> |
|||
/* MISTRAL - a flavour of Hopper */ |
|||
#include <mistral.h> |
|||
INICIAR: |
|||
TAMAÑO DE MEMORIA 20 |
|||
temperatura=0 |
|||
RECIBIR PARÁMETRO NUMÉRICO(2), GUARDAR EN (temperatura); |
|||
IMPRIMIR("KELVIN : ",temperatura, NL) |
|||
IMPRIMIR("CELSIUS : ",temperatura, MENOS '273.15', NL) |
|||
IMPRIMIR("FAHRENHEIT : ",temperatura, POR '1.8' MENOS '459.67', NL) |
|||
IMPRIMIR("RANKINE : ",temperatura, POR '1.8', NL) |
|||
FINALIZAR |
|||
</lang> |
</lang> |
||
{{out}} |
{{out}} |