[Robert01]

Conversión de grados centígrados o Celsius a otras varias:

Código Delphi [-]
FunctionCelsiusToRankine(Temperatura:real):real;
 begin
   result{Ra}:= (9/5)*(temperatura) + 491,67;
 end;

functionCelsiusToRéaumur(Temperatura:real):real;
begin
   result {°Ré} := (4/5) * Temperatura;
end;

functionCelsiusToNewton(Temperatura:real):real;
begin
  result{°N} := (33/100) * Temperatura;
end;

functionCelsiusToRømer(Temperatura:real):real;
begin
  result {°Rø} := (21/40) * Temperatura + 7,5;
end;

functionCelsiusToDelisle(Temperatura:real):real;
begin 
  result {°Da} := (3,2) * (100 − Temperatura);
end
 

functionCelsiusToKelvin(Temperatura:real):real;
begin
 result {K} := Temperatura + 273.15;
end;

/saludos