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 Oberon suivant, vous trouvez la réponse que vous souhaitez :
MODULE meteoconv;
IMPORT Out;
PROCEDURE FahrToCent(Fahr:REAL):REAL;BEGIN
RETURN (5.0/9.0)*(Fahr-32.0);
END FahrToCent;
PROCEDURE CentToFahr(Cent:REAL):REAL;BEGIN
RETURN 1.8*Cent+32.0;
END CentToFahr;
PROCEDURE CentToKelvin(Cent:REAL):REAL;BEGIN
RETURN Cent+273.16;
END CentToKelvin;
PROCEDURE KelvinToCent(Kelvin:REAL):REAL;BEGIN
RETURN Kelvin-273.16;
END KelvinToCent;
PROCEDURE KelvinToFahr(Kelvin:REAL):REAL;BEGIN
RETURN 1.8*(Kelvin-273.16)+32.0;
END KelvinToFahr;
PROCEDURE RankineToCent(Rankine:REAL):REAL;BEGIN
RETURN (5.0/9.0)*(Rankine-491.69);
END RankineToCent;
PROCEDURE CentToRankine(Celsius:REAL):REAL;BEGIN
RETURN (Celsius*1.8)+491.69;
END CentToRankine;
PROCEDURE RankineToFahr(Rankine:REAL):REAL;BEGIN
RETURN Rankine-459.69;
END RankineToFahr;
PROCEDURE ReaumurToCent(Reaumur:REAL):REAL;BEGIN
RETURN Reaumur*5/4;
END ReaumurToCent;
PROCEDURE NewtonToCent(Newton:REAL):REAL;BEGIN
RETURN Newton*100/33;
END NewtonToCent;
BEGIN
Out.String("0 Fahrenheit en Celsius: ");
Out.Real(FahrToCent(0));
Out.Ln;
Out.String("32 Fahrenheit en Celsius: ");
Out.Real(FahrToCent(32));
Out.Ln;
Out.String("80 Fahrenheit en Celsius: ");
Out.Real(FahrToCent(80));
Out.Ln;
Out.Ln;
Out.String("0 Celcius en Fahrenheit: ");
Out.Real(CentToFahr(0));
Out.Ln;
Out.String("30 Celcius en Fahrenheit: ");
Out.Real(CentToFahr(30));
Out.Ln;
Out.String("100 Celcius en Fahrenheit: ");
Out.Real(CentToFahr(100));
Out.Ln;
Out.Ln;
Out.String("-273,16 Celsius en Kelvin: ");
Out.Real(CentToKelvin(-273.16));
Out.Ln;
Out.String("0 Celsius en Kelvin: ");
Out.Real(CentToKelvin(0));
Out.Ln;
Out.String("100 Celsius en Kelvin: ");
Out.Real(CentToKelvin(100));
Out.Ln;
Out.Ln;
Out.String("0 Kelvin en Celsius: ");
Out.Real(KelvinToCent(0));
Out.Ln;
Out.String("273,16 Kelvin en Celsius: ");
Out.Real(KelvinToCent(273.16));
Out.Ln;
Out.String("373,16 Kelvin en Celsius: ");
Out.Real(KelvinToCent(373.16));
Out.Ln;
Out.Ln;
Out.String("0 Kelvin en Fahrenheit: ");
Out.Real(KelvinToFahr(0));
Out.Ln;
Out.String("273,16 Kelvin en Fahrenheit: ");
Out.Real(KelvinToFahr(273.16));
Out.Ln;
Out.String("373,16 Kelvin en Fahrenheit: ");
Out.Real(KelvinToFahr(373.16));
Out.Ln;
Out.Ln;
Out.String("0 Rankine en Celsius: ");
Out.Real(RankineToCent(0));
Out.Ln;
Out.String("491,69 Rankine en Celsius: ");
Out.Real(RankineToCent(491.69));
Out.Ln;
Out.String("671,69 Rankine en Celsius: ");
Out.Real(RankineToCent(671.69));
Out.Ln;
Out.Ln;
Out.String("-273,16 Celsius en Rankine: ");
Out.Real(CentToRankine(-273.16));
Out.Ln;
Out.String("0 Celcius en Rankine: ");
Out.Real(CentToRankine(0));
Out.Ln;
Out.String("100 Celcius en Rankine: ");
Out.Real(CentToRankine(100.0));
Out.Ln;
Out.Ln;
Out.String("0 Rankine en Fahrenheit: ");
Out.Real(RankineToFahr(0));
Out.Ln;
Out.String("491,69 Rankine en Fahrenheit: ");
Out.Real(RankineToFahr(491.69));
Out.Ln;
Out.String("671,69 Rankine en Fahrenheit: ");
Out.Real(RankineToFahr(671.69));
Out.Ln;
Out.Ln;
Out.String("0 Réaumur en Celsius: ");
Out.Real(ReaumurToCent(0));
Out.Ln;
Out.String("80 Réaumur en Celsius: ");
Out.Real(ReaumurToCent(80));
Out.Ln;
Out.String("100 Réaumur en Celsius: ");
Out.Real(ReaumurToCent(100));
Out.Ln;
Out.Ln;
Out.String("0 Newton en Celsius: ");
Out.Real(NewtonToCent(0));
Out.Ln;
Out.String("100 Newton en Celsius: ");
Out.Real(NewtonToCent(100));
Out.Ln;
Out.String("200 Newton en Celsius: ");
Out.Real(NewtonToCent(200));
Out.Ln;
END meteoconv.
on obtiendra le résultat suivant:
0 Fahrenheit en Celsius: -17,777832 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 7 avril 2018