Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Publicado por Guilherme de Matos Battista (última atualização em 08/04/2010)
[ Hits: 9.298 ]
Homepage: http://www.orkut.com.br/Main#Profile.aspx?uid=6801309084919838906&pcy=3&t=0
Este programa faz a conversão entre as escalas de temperatura mais usadas atualmente. No total são seis possibilidades de conversão, escritas com comandos extremamente simples.
Faz uso de variáveis INTEGER com a opção Trunc (arredondamento) nas equações, para não dar erro caso os resultados tenham vírgula.
Bons estudos.
program conversor;
uses crt;
var u,f,x: string;
var t,r: integer;
begin
repeat
writeln ('Digite a unidade de temperatura que você vai inserir e quer transformar, sendo K , C ou F.');
readln (u);
writeln ('Digite a unidade de temperatura para a qual você quer transformar, sendo K, C ou F.');
readln (f);
writeln ('Digite a temperatura.');
readln (t);
begin
if u = ('c')
then begin
if f = ('k')
then
r:= t+273;
end;
begin
if f = ('f') then
r:=Trunc(((t/5)*9)+32);
end;
begin
if f = ('c') then
r:=t;
end;
if u = ('c') then
writeln (t, ' graus Celcius, em ', f,'° é ', r);
end;
begin
if u = ('k')
then begin
if f = ('c') then
r:=t-273;
end;
begin
if f = ('f') then
r:=Trunc(((t/5)*9)+32)-273;
end;
begin
if f = ('k') then
r:=t;
end;
if u = ('k') then
writeln (t, ' Kelvin, em ', f,'° é ', r);
end;
begin
if u = ('f')
then begin
if f = ('c') then
r:=Trunc((t-32)/9)*5;
end;
begin
if f = ('k') then
r:=Trunc(((t-32)/9)*5)+273;
end;
begin
if f = ('f') then
r:=t;
end;
if u = ('f') then
writeln (t, ' Fahrenheit, em ', f,'° é ', r);
end;
readkey;
writeln ('Deseja parar o programa? Caso queira, digite "s". Caso contrário, tecle enter.');
readln (x);
clrscr;
until x = ('s');
end.
Existência de triângulo, em Pascal
diferença entre o maior e o menor numero
Números primos (usando arrays)
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









