Section courante

A propos

Section administrative du site

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 QuickBASIC/QBasic suivant, vous trouverez la réponse que vous souhaitez :

  1. DECLARE FUNCTION FahrToCent! (Fahr!)
  2. DECLARE FUNCTION CentToFahr! (Cent!)
  3. DECLARE FUNCTION CentToKelvin! (Cent!)
  4. DECLARE FUNCTION KelvinToCent! (Kelvin!)
  5. DECLARE FUNCTION KelvinToFahr! (Kelvin!)
  6. DECLARE FUNCTION RankineToCent! (Rankine!)
  7. DECLARE FUNCTION CentToRankine! (Celsius!)
  8. DECLARE FUNCTION RankineToFahr! (Rankine!)
  9. DECLARE FUNCTION ReaumurToCent! (Reaumur!)
  10. DECLARE FUNCTION NewtonToCent! (Newton!)
  11.  
  12. PRINT "0 Fahrenheit en Celsius: " + STR$(FahrToCent(0))
  13. PRINT "32 Fahrenheit en Celsius: " + STR$(FahrToCent(32))
  14. PRINT "80 Fahrenheit en Celsius: " + STR$(FahrToCent(80))
  15. PRINT
  16. PRINT "0 Celcius en Fahrenheit: " + STR$(CentToFahr(0))
  17. PRINT "30 Celcius en Fahrenheit: " + STR$(CentToFahr(30))
  18. PRINT "100 Celcius en Fahrenheit: " + STR$(CentToFahr(100))
  19. PRINT
  20. PRINT "-273,16 Celsius en Kelvin: " + STR$(CentToKelvin(-273.16))
  21. PRINT "0 Celsius en Kelvin: " + STR$(CentToKelvin(0))
  22. PRINT "100 Celsius en Kelvin: " + STR$(CentToKelvin(100))
  23. PRINT
  24. PRINT "0 Kelvin en Celsius: " + STR$(KelvinToCent(0))
  25. PRINT "273,16 Kelvin en Celsius: " + STR$(KelvinToCent(273.16))
  26. PRINT "373,16 Kelvin en Celsius: " + STR$(KelvinToCent(373.16))
  27. PRINT
  28. PRINT "0 Kelvin en Fahrenheit: " + STR$(KelvinToFahr(0))
  29. PRINT "273,16 Kelvin en Fahrenheit: " + STR$(KelvinToFahr(273.16))
  30. PRINT "373,16 Kelvin en Fahrenheit: " + STR$(KelvinToFahr(373.16))
  31. PRINT
  32. PRINT "0 Rankine en Celsius: " + STR$(RankineToCent(0))
  33. PRINT "491,69 Rankine en Celsius: " + STR$(RankineToCent(491.69))
  34. PRINT "671,69 Rankine en Celsius: " + STR$(RankineToCent(671.69))
  35. PRINT
  36. PRINT "-273,16 Celsius en Rankine: " + STR$(CentToRankine(-273.16))
  37. PRINT "0 Celcius en Rankine: " + STR$(CentToRankine(0))
  38. PRINT "100 Celcius en Rankine: " + STR$(CentToRankine(100!))
  39. PRINT
  40. PRINT "0 Rankine en Fahrenheit: " + STR$(RankineToFahr(0))
  41. PRINT "491,69 Rankine en Fahrenheit: " + STR$(RankineToFahr(491.69))
  42. PRINT "671,69 Rankine en Fahrenheit: " + STR$(RankineToFahr(671.69))
  43. PRINT
  44. PRINT "0 Réaumur en Celsius: " + STR$(ReaumurToCent(0))
  45. PRINT "80 Réaumur en Celsius: " + STR$(ReaumurToCent(80))
  46. PRINT "100 Réaumur en Celsius: " + STR$(ReaumurToCent(100))
  47. PRINT
  48. PRINT "0 Newton en Celsius: " + STR$(NewtonToCent(0))
  49. PRINT "100 Newton en Celsius: " + STR$(NewtonToCent(100))
  50. PRINT "200 Newton en Celsius: " + STR$(NewtonToCent(200))
  51.  
  52. FUNCTION CentToFahr (Cent)
  53.  CentToFahr = 1.8 * Cent + 32!
  54. END FUNCTION
  55.  
  56. FUNCTION CentToKelvin (Cent)
  57.  CentToKelvin = Cent + 273.16
  58. END FUNCTION
  59.  
  60. FUNCTION CentToRankine (Celsius)
  61.  CentToRankine = (Celsius * 1.8) + 491.69
  62. END FUNCTION
  63.  
  64. FUNCTION FahrToCent (Fahr)
  65.  FahrToCent = (5! / 9!) * (Fahr - 32!)
  66. END FUNCTION
  67.  
  68. FUNCTION KelvinToCent (Kelvin)
  69.  KelvinToCent = Kelvin - 273.16
  70. END FUNCTION
  71.  
  72. FUNCTION KelvinToFahr (Kelvin)
  73.  KelvinToFahr = 1.8 * (Kelvin - 273.16) + 32!
  74. END FUNCTION
  75.  
  76. FUNCTION NewtonToCent (Newton)
  77.  NewtonToCent = Newton * 100 / 33
  78. END FUNCTION
  79.  
  80. FUNCTION RankineToCent (Rankine)
  81.  RankineToCent = (5! / 9!) * (Rankine - 491.69)
  82. END FUNCTION
  83.  
  84. FUNCTION RankineToFahr (Rankine)
  85.  RankineToFahr = Rankine - 459.69
  86. END FUNCTION
  87.  
  88. FUNCTION ReaumurToCent (Reaumur)
  89.  ReaumurToCent = Reaumur * 5 / 4
  90. END FUNCTION

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 : Mercredi, le 14 septembre 2016