13 lines
390 B
Plaintext
13 lines
390 B
Plaintext
/* MISTRAL - a flavour of Hopper */
|
|
|
|
#include <mistral.h>
|
|
|
|
INICIAR:
|
|
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
|