Miscellany

Program ConversaoTemperatura;

Uses WinCrt;

var

tipo, tFahrenheit, tCelsius : Real;


Begin

while ( tipo <> 1 ) and ( tipo <> 2 ) do
begin

     Writeln( '   Qual o tipo de conversão?' );
     Writeln( '1 - de Fahrenheit para Celsius' );
     Writeln( '2 - de Celsius para Fahrenheit' );
     Write( 'Digite 1 ou 2: ' );
     readln( tipo );
     
     if( tipo <> 1 ) and ( tipo <> 2 ) then
     begin
          clrscr;
          Writeln( 'Operação inválida!' );
          readkey;
          clrscr;
     end;

     if( tipo = 1 ) then
     begin
        Writeln( 'Digite a temperatura em Fahrenheit' );
        readln( tFahrenheit );
        tCelsius := ( tFahrenheit - 32 ) / 1.8;
        Writeln( tFahrenheit:2:2, ' em Fahrenheit, equivale a ', tCelsius:2:2, ' em Celsius' );
     end;

     if( tipo = 2 ) then
     begin
        Writeln( 'Digite a temperatura em Celsius' );
        readln( tCelsius );
        tFahrenheit := (tCelsius * 1.8) + 32;
        Writeln( tCelsius:2:2, ' em Celsius, equivale a ', tFahrenheit:2:2, ' em Fahrenheit' );
     end;


end;


End.