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.250 ]
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 Empresarial (Baseada nas fórmulas de Logística)Lazarus
mais um modelo de programa com vetor
Números primos (usando arrays)
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Primeiras impressões do Debian 13 (2)
ETH1:2 não responde ao meu IP da rede (1)
Google Crhome não abre desde que eu atualizei pelo "program... (14)