Temperature conversion: Difference between revisions

=={{header|Amazing Hopper}}==

<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);

TOMAR("KELVIN : ",temperatura, NL)

CON( "CELSIUS : ", temperatura ), CALCULAR( Conversión Kelvin a Celsius ), NUEVA LÍNEA

CON( "FAHRENHEIT : ", temperatura ), CALCULAR( Conversión Kelvin a Fahrenheit ), NUEVA LÍNEA

CON( "RANKINE : ", temperatura ), CALCULAR( Conversión Kelvin a Rankine ), NUEVA LÍNEA

IMPRIMIR CON SALTO

FINALIZAR

SUBRUTINAS

FUNCIÓN(Conversión Kelvin a Celsius, k)

REDONDEAR(RESTAR(k, 273.15), 2)

RETORNAR

FUNCIÓN( Conversión Kelvin a Fahrenheit, k)

REDONDEAR( {k} MULTIPLICADO POR(1.8) MENOS( 459.67), 2)

RETORNAR

FUNCIÓN( Conversión Kelvin a Rankine, k)

RETORNAR ( {k} POR (1.8), REDONDEADO AL DECIMAL(2) )

</lang>

{{out}}

<pre>

$ hopper conv.mistral 0

KELVIN : 0

CELSIUS : -273.15

FAHRENHEIT : -459.67

RANKINE : 0

</pre>

<pre>

$ hopper conv.mistral 21

KELVIN : 21

CELSIUS : -252.15

FAHRENHEIT : -421.87

RANKINE : 37.8

</pre>