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: 8.917 ]
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 feita no Lazarus (Delphi 7 para Linux)
Exemplo de for que mostra 6 números em ordem crescente
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (24)
Placamae Asus H510M-E Aceita Linux? [RESOLVIDO] (9)
erro ao clonar repo github (3)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba