XProfan

!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln
Declare Result$,Value$
Decimals 2

Proc CelsiusToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 1.8 + 32
    Print Result$

EndProc

Proc CelsiusToKelvin

    Parameters Value$
    Result$ = @VAL(Value$) + 273.15
    Print Result$

EndProc

Proc CelsiusToReaumur

    Parameters Value$
    Result$ = @VAL(Value$) * 0.8
    Print Result$

EndProc

Proc KelvinToCelsius

    Parameters Value$
    Result$ = @VAL(Value$) - 273.15
    Print Result$

EndProc

Proc KelvinToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 1.8 - 459.67
    Print Result$

EndProc

Proc KelvinToReaumur

    Parameters Value$
    Result$ = (@VAL(Value$) - 273.15) * 0.8
    Print Result$

EndProc

Proc FahrenheitToCelsius

    Parameters Value$
    Result$ = (@VAL(Value$) - 32) / 1.8
    Print Result$

EndProc

Proc FahrenheitToKelvin

    Parameters Value$
    Result$ = (@VAL(Value$) + 459.67) / 1.8
    Print Result$

EndProc

Proc FahrenheitToReaumur

    Parameters Value$
    Result$ = (@VAL(Value$) - 32) / 2.25
    Print Result$

EndProc

Proc ReaumurToCelsius

    Parameters Value$
    Result$ = @VAL(Value$) * 1.25
    Print Result$

EndProc

Proc ReaumurToFahrenheit

    Parameters Value$
    Result$ = @VAL(Value$) * 2.25 + 32
    Print Result$

EndProc

Proc ReaumurToKelvin

    Parameters Value$
    Result$ = @VAL(Value$) * 1.25 + 273.15
    Print Result$

EndProc

Beispielaufruf
CLS
KelvinToReaumur "363.15"
WaitInput

Versionen vor XProfan8?
Decimals 2
CelsiusToFahrenheit 36.89
Print @!(0)

!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln
Decimals 2
Def CelsiusToFahrenheit(1) (&(1) * 1.8 + 32)
Def CelsiusToKelvin(1)     (&(1) + 273.15)
Def CelsiusToReaumur(1)    (&(1) * 0.8)
Def KelvinToCelsius(1)     (&(1) - 273.15)
Def KelvinToFahrenheit(1)  (&(1) * 1.8 - 459.67)
Def KelvinToReaumur(1)     ((&(1) - 273.15) * 0.8)
Def FahrenheitToCelsius(1) ((&(1) - 32) / 1.8)
Def FahrenheitToKelvin(1)  ((&(1) + 459.67) / 1.8)
Def FahrenheitToReaumur(1) ((&(1) - 32) / 2.25)
Def ReaumurToCelsius(1)    (&(1) * 1.25)
Def ReaumurToFahrenheit(1) (&(1) * 2.25 + 32)
Def ReaumurToKelvin(1)     (&(1) * 1.25 + 273.15)
Beispielaufruf
Cls
Print KelvinToCelsius(298.15)
Print
Print CelsiusToKelvin(25.00)
WaitInput
End

!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln ab Profan v6.6
Def Celsius2FKR(2)    If((&(2) = 0),(&(1) * 1.8 + 32),If((&(2) = 1),(&(1) + 273.15),If((&(2) = 2),(&(1) * 0.8),-1)))
Def Kelvin2CFR(2)     If((&(2) = 0),(&(1) - 273.15),If((&(2) = 1),(&(1) * 1.8 - 459.67),If((&(2) = 2),((&(1) - 273.15) * 0.8),-1)))
Def Fahrenheit2CKR(2) If((&(2) = 0),((&(1) - 32) / 1.8),If((&(2) = 1),((&(1) + 459.67) / 1.8),If((&(2) = 2),((&(1) - 32) / 2.25),-1)))
Def Reaumur2CFK(2)    If((&(2) = 0),(&(1) * 1.25),If((&(2) = 1),(&(1) * 2.25 + 32),If((&(2) = 2),(&(1) * 1.25 + 273.15),-1)))
Beispielaufruf
Cls
UseIcon "A"
Decimals 2
Print ("Celsius2FKR(25.00,0)   : "+Str$(Celsius2FKR(25.00,0)))
Print "---------------------------------"
Print ("Kelvin2CFR(298.15,1)   : "+Str$(Kelvin2CFR(298.15,1)))
Print "---------------------------------"
Print ("Fahrenheit2CKR(77.00,0): "+Str$(Fahrenheit2CKR(77.00,0)))
Print "---------------------------------"
Print ("Reaumur2CFK(20.00,1)   : "+Str$(Reaumur2CFK(20.00,1)))
WaitInput
End