Ejemplo Calculando Grados Fahrenheit Turbo pascal

En este ejemplo de turbo pascal utilizaremos Las Formulas de conversión de incrementos
de grados Fahrenheit Celsius y Kelvin para calcular el valor de temperatura Introducido

Formulas:
Fahrenheit a Celsius   C =(F-32)*5/9
Fahrenheit a Kelvin K = (F-32)*5/9 +273

Celsius a Fahrenheit  F =C*9/5+32
Celsius a Kelvin K=C+273

Kelvin a Fahrenheit   F= (k-273)9/5+32
Kelvin a Celsius C=K-273

           
Código:

Program appletenhtml (input,output); 
uses
 crt; 
Var
 accion: Integer;
        F: Integer;
          C: Integer;
            K: Integer;
Begin
while(accion <> 1) and (accion <> 2) and (accion <> 3) and (accion <> 4) and (accion <> 5) and (accion <> 6) do begin
   writeln('Seleccione la conversion que quiere haser(ingresando el numero):');
      writeln('1. Fahrenheit a Celsius');
      writeln('2. Fahrenheit a Kelvin');
      writeln('3. Celsius a Fahrenheit');
      writeln('4. Celsius a Kelvin');
   writeln('5. Kelvin a Fahrenheit');
   writeln('6. Kelvin a Celsius');
       readln(accion);
    
  if ((accion <> 1) and (accion <> 2) and (accion <> 3) and (accion <> 4) and (accion <> 5) and (accion <> 6)) then
     begin  writeln('Error: ingrese el numero de alguna accion'); end;
    
    
      end;
   
   
   if(accion=1) then begin
          writeln('Ingrese cantidad de Farenheit para convertir a Celsius');
            readln(F);
               C:=F-32;
      C:=C*5;
      C:=C div 9;
      writeln(' ',C,' C');
      readkey;
           
      end;
   if(accion=2) then begin
           writeln('Ingrese cantidad de Farenheit para convertir a Kelvin');
      readln(F);
      K:=F-32;
      K:=k*5;
      K:=K div 9;
      K:=K+273;
      writeln(' ',K,' K');
      readkey;
      end;
      
      
   if(accion=3) then begin
                     writeln('Ingrese cantidad de Celsius para convertir a Farenheit');
         readln(C);
      F:=C*9;
      F:=F div 5;
      F:=F+32;
         writeln(' ',F,' F');
      readkey;
      end;
      
      
   if(accion=4) then begin
         writeln('Ingrese cantidad de Celsius para convertir a Kelvin');
      readln(C);
      K:=C+273;
      writeln(' ',K,' K');
      readkey;
      end;
   
   if(accion=5) then begin
           writeln('Ingrese cantidad de Kelvin para convertir a Fahrenheit');
      readln(K);
      F:=K-273;
      F:=F*9;
      F:=F div 5;
      F:=F+32;
      writeln(' ',F,' F');
      readkey;
      end;
   
  
            
            if(accion=6) then begin
           writeln('Ingrese cantidad de Kelvin para convertir a Celsius');
      readln(K);
      C:=K-273;
      writeln(' ',C,' C');
      readkey;
      end;   
   
 
   
   
   


  readkey;
end.

Descargar Ejemplo:

Ejemplo switch case Calculando Grados pascal

Turbo Pascal