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.

• Download Conversor.pas
• Enviar nova versão

Esconder código-fonte

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.

armazenar o nome de um aluno e suas notas

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Cáculo de Fatorial, utilizando-se de Repeat - Until

media/record

controle de locadora

Nenhum comentário foi encontrado.