Temperature conversion: Difference between revisions
no edit summary
(R language) |
No edit summary |
||
Line 348:
WRITE( R, " degrees Rankine" );
END</lang>
=={{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>
=={{header|APL}}==
| |||