calcular temperatura en delphi

[[Delphius]]

Hola nemesis, bienvenido a clubDelphi.

Fijate si te sirve estas funciones:

Código Delphi [-]
function CelciusToFarenheit(Temperatura: real): real;
begin
  result := (5/9)*(Temperatura - 32);
end;

function FarenheitToCelcius(Temperatura: real): real;
begin
  result := (9/5)* (Temperatura + 32);
end;

Con respecto a tu seguda pregunta... puedes agregar una segunda línea (o las que deseas) mediante el caracter ASCII: #13. Algo como esto:

Código Delphi [-]
'Primera Linea' + #13 + 'Este texto va en la segunda linea';

Espero haber ayudado.
Saludos,

[[seoane]]

Bueno Delphius parece que por fin voy a ser yo quien te corrija un calculo

Código Delphi [-]
function FarenheitToCelcius(Temperatura: real): real;
begin
  result := (9/5) * Temperatura + 32;
end;

[[Crandel]]

Creo que los dos estan equivocados

Código Delphi [-]
function CelciusToFarenheit(Temperatura: real): real;
begin
  result := (9/5) * Temperatura + 32;
end;

function FarenheitToCelcius(Temperatura: real): real;
begin
  result := (5/9) * (Temperatura - 32);
end;

[nemesis]

k gracias. voy a tratar eso ahora a ver si me sale

[[gluglu]]

En este caso debe también de decir, que en cuanto al cálculo de temperaturas, el correcto es el de crandel.

Yo siempre me he sabido la fórmula de esta manera :

ºF - 32 ºC
------- = ------
9 5

... y ya que cada cual despeje lo que quiera.

Vaya, no tengo manera de ponerlo bien con el editor por más que lo intento. En palabras : ºF - 32 dividido entre 9 es igual a ºC dividido entre 5 .