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 &

!Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Temperaturen umwandeln

Proc CelsiusToFahrenheit

    Parameters Value!
    Return Value! * 1.8 + 32

EndProc

Proc CelsiusToKelvin

    Parameters Value!
    Return = Value! + 273.15

EndProc

Proc CelsiusToReaumur

    Parameters Value!
    Return = Value! * 0.8

EndProc

Proc KelvinToCelsius

    Parameters Value!
    Return = Value! - 273.15

EndProc

Proc KelvinToFahrenheit

    Parameters Value!
    Return Value! * 1.8 - 459.67

EndProc

Proc KelvinToReaumur

    Parameters Value!
    Return (Value! - 273.15) * 0.8

EndProc

Proc FahrenheitToCelsius

    Parameters Value!
    Return (Value! - 32) / 1.8

EndProc

Proc FahrenheitToKelvin

    Parameters Value!
    Return (Value! + 459.67) / 1.8

EndProc

Proc FahrenheitToReaumur

    Parameters Value!
    Return (Value! - 32) / 2.25

EndProc

Proc ReaumurToCelsius

    Parameters Value!
    Return Value! * 1.25

EndProc

Proc ReaumurToFahrenheit

    Parameters Value!
    Return Value! * 2.25 + 32

EndProc

Proc ReaumurToKelvin

    Parameters Value!
    Return Value! * 1.25 + 273.15

EndProc

Beispielaufruf
CLS
Set("Decimals",2)
Print CelsiusToFahrenheit(36.89)
Versionen vor XProfan8?
Decimals 2
Print CelsiusToFahrenheit 9
WaitInput

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

!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