Langage de programmation - Visual C++ .NET - 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 Visual C++ .NET suivant, vous trouverez la réponse que vous souhaitez :


				

#include "stdafx.h"

 
using namespace System;

 
double FahrToCent(double Fahr) { 

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

 } 

 

 double CentToFahr(double Cent) { 

  return 1.8*Cent+32.0; 

 } 

 

 double CentToKelvin(double Cent) { 

  return Cent+273.16; 

 } 

 

 double KelvinToCent(double Kelvin) { 

  return Kelvin-273.16; 

 } 

 

 double KelvinToFahr(double Kelvin) { 

  return 1.8*(Kelvin-273.16)+32.0; 

 } 

 

 double RankineToCent(double Rankine) { 

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

 } 

 

 double CentToRankine(double Celsius) { 

  return (Celsius*1.8)+491.69; 

 } 

 

 double RankineToFahr(double Rankine) { 

  return Rankine-459.69; 

 } 

 

 double ReaumurToCent(double Reaumur) { 

  return Reaumur*5/4; 

 } 

 

 double NewtonToCent(double Newton) { 

  return Newton*100/33; 

 } 

 
 
int main(array<System::String ^> ^args)

{

     Console::WriteLine("0 Fahrenheit en Celsius: "+Convert::ToString(FahrToCent(0))); 

     Console::WriteLine("32 Fahrenheit en Celsius: "+Convert::ToString(FahrToCent(32))); 

     Console::WriteLine("80 Fahrenheit en Celsius: "+Convert::ToString(FahrToCent(80))); 

     Console::WriteLine();

     Console::WriteLine("0 Celcius en Fahrenheit: "+Convert::ToString(CentToFahr(0))); 

     Console::WriteLine("30 Celcius en Fahrenheit: "+Convert::ToString(CentToFahr(30))); 

     Console::WriteLine("100 Celcius en Fahrenheit: "+Convert::ToString(CentToFahr(100))); 

     Console::WriteLine();

     Console::WriteLine("-273.16 Celsius en Kelvin: "+Convert::ToString(CentToKelvin(-273.16))); 

     Console::WriteLine("0 Celsius en Kelvin: "+Convert::ToString(CentToKelvin(0))); 

     Console::WriteLine("100 Celsius en Kelvin: "+Convert::ToString(CentToKelvin(100))); 

     Console::WriteLine();

     Console::WriteLine("0 Kelvin en Celsius: "+Convert::ToString(KelvinToCent(0))); 

     Console::WriteLine("273,16 Kelvin en Celsius: "+Convert::ToString(KelvinToCent(273.16))); 

     Console::WriteLine("373,16 Kelvin en Celsius: "+Convert::ToString(KelvinToCent(373.16))); 

     Console::WriteLine();

     Console::WriteLine("0 Kelvin en Fahrenheit: "+Convert::ToString(KelvinToFahr(0))); 

     Console::WriteLine("273,16 Kelvin en Fahrenheit: "+Convert::ToString(KelvinToFahr(273.16))); 

     Console::WriteLine("373,16 Kelvin en Fahrenheit: "+Convert::ToString(KelvinToFahr(373.16))); 

     Console::WriteLine();

     Console::WriteLine("0 Rankine en Celsius: "+Convert::ToString(RankineToCent(0))); 

     Console::WriteLine("491,69 Rankine en Celsius: "+Convert::ToString(RankineToCent(491.69))); 

     Console::WriteLine("671,69 Rankine en Celsius: "+Convert::ToString(RankineToCent(671.69))); 

     Console::WriteLine();

     Console::WriteLine("-273,16 Celsius en Rankine: "+Convert::ToString(CentToRankine(-273.16))); 

     Console::WriteLine("0 Celcius en Rankine: "+Convert::ToString(CentToRankine(0))); 

     Console::WriteLine("100 Celcius en Rankine: "+Convert::ToString(CentToRankine(100.0))); 

     Console::WriteLine();

     Console::WriteLine("0 Rankine en Fahrenheit: "+Convert::ToString(RankineToFahr(0))); 

     Console::WriteLine("491,69 Rankine en Fahrenheit: "+Convert::ToString(RankineToFahr(491.69))); 

     Console::WriteLine("671,69 Rankine en Fahrenheit: "+Convert::ToString(RankineToFahr(671.69))); 

     Console::WriteLine();

     Console::WriteLine("0 Réaumur en Celsius: "+Convert::ToString(ReaumurToCent(0))); 

     Console::WriteLine("80 Réaumur en Celsius: "+Convert::ToString(ReaumurToCent(80))); 

     Console::WriteLine("100 Réaumur en Celsius: "+Convert::ToString(ReaumurToCent(100))); 

     Console::WriteLine();

     Console::WriteLine("0 Newton en Celsius: "+Convert::ToString(NewtonToCent(0))); 

     Console::WriteLine("100 Newton en Celsius: "+Convert::ToString(NewtonToCent(100))); 

     Console::WriteLine("200 Newton en Celsius: "+Convert::ToString(NewtonToCent(200)));  

     return 0;

}

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 : Lundi, le 13 mars 2006

Section courante

A propos

Section administrative du site