Algoritmo Scilab

clc;

clear;

mprintf("Escolha a unidade para realizar a conversão\n1-Temperatura\n2-Pressão\n3-Força\n4-Energia\n5-Potência\n");

cod=input("Digite a sua escolha:")

select cod

case 1 then

mprintf("\n\nEscolha a unidade de temperatura de entrada:\n1-Celsius\n2-Kelvin\n3-Fahrenheit\n\n");

unidtemp=input("Em qual unidade a temperatura será digitada?")

temp=input("Digite a temperatura na unidade escolhida:")

select unidtemp

case 1 then

celsius=temp;

kelvin=temp+273.15;

fah=temp*1.8+32;

mprintf("\nTemperatura:\nCelsius %g",celsius);

mprintf("\nKelvin %g",kelvin);

mprintf("\nFahrenheit %g",fah);

case 2 then

celsius=temp-273.15;

kelvin=temp;

fah=celsius*1.8+32;

mprintf("\nTemperatura:\nCelsius %g",celsius);

mprintf("\nKelvin %g",kelvin);

mprintf("\nFahrenheit %g",fah);

case 3 then

celsius=(temp-32)/1.8;

kelvin=celsius+273.15;

fah=temp;

mprintf("\nTemperatura:\nCelsius %g",celsius);

mprintf("\nKelvin %g",kelvin);

mprintf("\nFahrenheit %g",fah);

end

case 2 then

mprintf("\n\nEscolha a unidade de pressão de entrada:\n1-Pascal\n2-Atmosfera\n3-Bar\n4-Libra por polegada quadrada\n\n");

unidpres=input("Escolha a unidade da pressão de entrada:")

select unidpres

case 1 then

celsius=temp;

kelvin=temp+273.15;

fah=temp*1.8+32;

mprintf("\nTemperatura:\nCelsius %g",celsius);

mprintf("\nKelvin %g",kelvin);

mprintf("\nFahrenheit %g",fah);

end

end