Langage de programmation - Ada - Météorologie - Conversion des unités de mesures météorologique (Celsius, Rankine, Kelvin, Fahrenheit, Newton, Réaumur)

Les unités de mesure utilisé en météorologie pour mesurer le température qu'il fait (chaud ou froid) est très varié. Le schéma suivant permet de représenté en fonction d'un domaine ou d'une région les températures utilisés :

Unités de mesure	Utilisation	Date de création	Origine du nom
Celsius	Unité de mesure international utilisé par le grand publique	1948	Anders Celsius
Fahrenheit	Unité de mesure surtout utilisé par les américains	1724	Daniel Gabriel Fahrenheit
Kelvin	Unité de mesure surtout utilisé par les physiciens	1954	Lord Kelvin
Newton	Unité de mesure utilisé en histoire	Environ 1700	Isaac Newton
Rankine	Unité de mesure surtout utilisé par les physiciens	1859	William John Macquorn Rankine
Réaumur	Unité de mesure utilisé en histoire	1731	René-Antoine Ferchault de Réaumur

A l'aide du code source Ada suivant, vous trouvez la réponse que vous souhaitez :


			

WITH TEXT_IO;

 
PROCEDURE Meteoconv IS

   USE TEXT_IO;

 
   FUNCTION FahrToCent(Fahr:IN Float) RETURN Float IS BEGIN

      RETURN (5.0/9.0)*(Fahr-32.0);

   END FahrToCent;

 
   FUNCTION CentToFahr(Cent:IN Float) RETURN Float IS BEGIN

      RETURN 1.8*Cent+32.0;

   END CentToFahr;

 
   FUNCTION CentToKelvin(Cent:IN Float) RETURN Float IS

            BEGIN

      RETURN Cent+273.16;

   END CentToKelvin;

 
   FUNCTION KelvinToCent(Kelvin:IN Float) RETURN Float IS BEGIN

      RETURN Kelvin-273.16;

   END KelvinToCent;

 
   FUNCTION KelvinToFahr(Kelvin:IN Float) RETURN Float IS BEGIN

      RETURN 1.8*(Kelvin-273.16)+32.0;

   END KelvinToFahr;

 
   FUNCTION RankineToCent(Rankine:IN Float) RETURN Float IS BEGIN

      RETURN (5.0/9.0)*(Rankine-491.69);

   END RankineToCent;

 
   FUNCTION CentToRankine(Celsius:IN Float) RETURN Float IS BEGIN

      RETURN (Celsius*1.8)+491.69;

   END CentToRankine;

 
   FUNCTION RankineToFahr(Rankine:IN Float) RETURN Float IS BEGIN

      RETURN Rankine-459.69;

   END RankineToFahr;

 
   FUNCTION ReaumurToCent(Reaumur:IN Float) RETURN Float IS BEGIN

      RETURN Reaumur * 5.0/4.0;

   END ReaumurToCent;

 
   FUNCTION NewtonToCent(Newton:IN Float) RETURN Float IS BEGIN

      RETURN Newton * 100.0/33.0;

   END NewtonToCent;

 
BEGIN

   PUT_LINE("0 Fahrenheit en Celsius: " & FLOAT'IMAGE(FahrToCent(0.0)));

   PUT_LINE("2 Fahrenheit en Celsius: " & FLOAT'IMAGE(FahrToCent(32.0)));

   PUT_LINE("0 Fahrenheit en Celsius: " & FLOAT'IMAGE(FahrToCent(80.0)));

   PUT_LINE("");

   PUT_LINE("0 Celcius en Fahrenheit: " & FLOAT'IMAGE(CentToFahr(0.0)));

   PUT_LINE("0 Celcius en Fahrenheit: " & FLOAT'IMAGE(CentToFahr(30.0)));

   PUT_LINE("00 Celcius en Fahrenheit: " & FLOAT'IMAGE(CentToFahr(100.0)));

   PUT_LINE("");

   PUT_LINE("273,16 Celsius en Kelvin: " & FLOAT'IMAGE(CentToKelvin(-273.16)));

   PUT_LINE("0 Celsius en Kelvin: " & FLOAT'IMAGE(CentToKelvin(0.0)));

   PUT_LINE("100 Celsius en Kelvin: " & FLOAT'IMAGE(CentToKelvin(100.0)));

   PUT_LINE("");

   PUT_LINE("0 Kelvin en Celsius: " & FLOAT'IMAGE(KelvinToCent(0.0)));

   PUT_LINE("273,16 Kelvin en Celsius: " & FLOAT'IMAGE(KelvinToCent(273.16)));

   PUT_LINE("373,16 Kelvin en Celsius: " & FLOAT'IMAGE(KelvinToCent(373.16)));

   PUT_LINE("");

   PUT_LINE("0 Kelvin en Fahrenheit: " & FLOAT'IMAGE(KelvinToFahr(0.0)));

   PUT_LINE("273,16 Kelvin en Fahrenheit: " & FLOAT'IMAGE(KelvinToFahr(273.16)));

   PUT_LINE("373,16 Kelvin en Fahrenheit: " & FLOAT'IMAGE(KelvinToFahr(373.16)));

   PUT_LINE("");

   PUT_LINE("0 Rankine en Celsius: " & FLOAT'IMAGE(RankineToCent(0.0)));

   PUT_LINE("491,69 Rankine en Celsius: " & FLOAT'IMAGE(RankineToCent(491.69)));

   PUT_LINE("671,69 Rankine en Celsius: " & FLOAT'IMAGE(RankineToCent(671.69)));

   PUT_LINE("");

   PUT_LINE("-273,16 Celsius en Rankine: " & FLOAT'IMAGE(CentToRankine(-273.16)));

   PUT_LINE("0 Celcius en Rankine: " & FLOAT'IMAGE(CentToRankine(0.0)));

   PUT_LINE("100 Celcius en Rankine: " & FLOAT'IMAGE(CentToRankine(100.0)));

   PUT_LINE("");

   PUT_LINE("0 Rankine en Fahrenheit: " & FLOAT'IMAGE(RankineToFahr(0.0)));

   PUT_LINE("491,69 Rankine en Fahrenheit: " & FLOAT'IMAGE(RankineToFahr(491.69)));

   PUT_LINE("671,69 Rankine en Fahrenheit: " & FLOAT'IMAGE(RankineToFahr(671.69)));

   PUT_LINE("");

   PUT_LINE("0 Réaumur en Celsius: " & FLOAT'IMAGE(ReaumurToCent(0.0)));

   PUT_LINE("80 Réaumur en Celsius: " & FLOAT'IMAGE(ReaumurToCent(80.0)));

   PUT_LINE("100 Réaumur en Celsius: " & FLOAT'IMAGE(ReaumurToCent(100.0)));

   PUT_LINE("");

   PUT_LINE("0 Newton en Celsius: " & FLOAT'IMAGE(NewtonToCent(0.0)));

   PUT_LINE("100 Newton en Celsius: " & FLOAT'IMAGE(NewtonToCent(100.0)));

   PUT_LINE("200 Newton en Celsius: " & FLOAT'IMAGE(NewtonToCent(200.0)));

END Meteoconv;

on obtiendra le résultat suivant :

0 Fahrenheit en Celsius: -17,7778 32 Fahrenheit en Celsius: 0 80 Fahrenheit en Celsius: 26,6667 0 Celcius en Fahrenheit: 32 30 Celcius en Fahrenheit: 86 100 Celcius en Fahrenheit: 212 -273.16 Celsius en Kelvin: 0 0 Celsius en Kelvin: 273,16 100 Celsius en Kelvin: 373,16 0 Kelvin en Celsius: -273,16 273,16 Kelvin en Celsius: 0 373,16 Kelvin en Celsius: 100 0 Kelvin en Fahrenheit: -459,688 273,16 Kelvin en Fahrenheit: 32 373,16 Kelvin en Fahrenheit: 212 0 Rankine en Celsius: -273,161 491,69 Rankine en Celsius: 0 671,69 Rankine en Celsius: 100 -273,16 Celsius en Rankine: 0,002 0 Celcius en Rankine: 491,69 100 Celcius en Rankine: 671,69 0 Rankine en Fahrenheit: -459,69 491,69 Rankine en Fahrenheit: 32 671,69 Rankine en Fahrenheit: 212 0 Réaumur en Celsius: 0 80 Réaumur en Celsius: 100 100 Réaumur en Celsius: 125 0 Newton en Celsius: 0 100 Newton en Celsius: 303,03 200 Newton en Celsius: 606,061

Dernière mise à jour : Samedi, le 25 août 2012

Section courante

A propos

Section administrative du site