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.159 ]
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.
Editor de texto em Pascal/Lazarus
Números primos (usando arrays)
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Nenhum comentário foi encontrado.
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
O que você está ouvindo agora? [2] (173)
Copiar Layout do Teclado para aplicar em outra Distribuição (8)
Alguém poderia me ajudar a escolher peças pra montar um desktop? [RESO... (34)