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.234 ]
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.
Calculadora de décimo terceiro no Lazarus
escreve os números de 1 a 9 com repeat - until
Calculadora de décimo terceiro salário em Pascal
Visualizador de imagem Pascal/Lazarus
Nenhum coment�rio foi encontrado.
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Preciso de opiniões sobre meus programas (3)
criar alias do comando "ls -la" (14)