Converting from fahrenheit to celcius problem.

GeoTrail · Post by **GeoTrail** » Wed Sep 15, 2004 1:50 pm

I'm having some problems when converting from celcius to fahrenheit.
When I input 22 celcius it gives back 71. Think that is correct.
But when I try to convert 71 fahrenheit to celcius it returns 21 instead of 22. Could anyone help me with this?

Code: Select all

Procedure.l celcius2fahrenheit(in.l)
  Result.l = (in.l * 9/5) + 32
  ProcedureReturn Result.l
EndProcedure

Procedure.l fahrenheit2celcius(in.l)
  Result.l = (in.l-32) * 5/9
  ProcedureReturn Result.l
EndProcedure

Debug celcius2fahrenheit(22)
Debug fahrenheit2celcius(71)

freedimension · Post by **freedimension** » Wed Sep 15, 2004 1:59 pm

You want to code with floats? So why don't you do it

Code: Select all

Procedure.l celcius2fahrenheit(in.l) 
  Result.l = (in.l * 9.0/5.0) + 32 
  ProcedureReturn Result.l 
EndProcedure 

Procedure.l fahrenheit2celcius(in.l) 
  Result.l = (in.l-32) * 5.0/9.0
  ProcedureReturn Result.l 
EndProcedure 

Debug celcius2fahrenheit(22)
Debug fahrenheit2celcius(71)

GeoTrail · Post by **GeoTrail** » Wed Sep 15, 2004 2:06 pm

Was that all?

Thanks, I didn't even think about that.

Cheers m8

PB · Post by PB » Wed Sep 15, 2004 2:14 pm

According to both http://www.onlineconversion.com/temperature.htm and
http://www.allmeasures.com/temperature.html we see that 22 c = 71.6 f,
and that 71.6 f = 22 c. So here's my offering that does the job:

Code: Select all

Procedure.s c2f(c.f)
  ProcedureReturn StrF((c*9/5)+32,1)
EndProcedure

Procedure.s f2c(f.f)
  ProcedureReturn StrF((f-32)*5/9,1)
EndProcedure

Debug c2f(22)
Debug f2c(71.6)

(@Freedimension: Your code is wrong -- it returns 72 instead of 71.6).

freedimension · Post by **freedimension** » Wed Sep 15, 2004 2:18 pm

PB wrote: (@Freedimension: Your code is wrong -- it returns 72 instead of 71.6).

Darn, i knew i missed something

GeoTrail · Post by **GeoTrail** » Wed Sep 15, 2004 2:36 pm

Great, thanks alot PB.
The more accurate the better