XProfan

Deutsch

!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

30.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Wow bei solch einem Babyklappen-Eingang kann ich nur sagen: Dankeschön lieber Unbekannter!

30.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Dem kann ich mich nur anschließen und habs gleich noch ein bischen optimiert:
Kompilieren Markieren Separieren

!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 36.89
WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

30.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Da fehlen noch Rankine, Römer und Delisle! (Parcival beherrscht die schon!!!!)

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

30.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

Wo setzt man die denn ein?
Die Formeln die jetzt da sind, sind alle aktuell gebräuchliche (die ich auch schon gehört habe). Die anderen kenne ich nicht.
[quote:ed9a4acaa1]
Versionen vor XProfan8?
Decimals 2
Print CelsiusToFahrenheit 36.89
[/quote:ed9a4acaa1]
Kompilieren Markieren Separieren

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

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

30.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Das Ganze in der Wiki: [...]

31.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Jo, in Wiki stehts. Außer Celsuis und Kelvin (und vielleicht Fahrenheit in USA und so) sind die anderen Skalen nicht mehr wichtig.

BTW: bei Grad Delisle wird der Wert der Temperatur kleiner je höher die Temperatur ist! Vrerückt!!!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

31.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

[quote:5841e852d0=Jacob Liebeck]Jo, in Wiki stehts. Außer Celsuis und Kelvin (und vielleicht Fahrenheit in USA und so) sind die anderen Skalen nicht mehr wichtig.

BTW: bei Grad Delisle wird der Wert der Temperatur kleiner je höher die Temperatur ist! Vrerückt!!!

[/quote:5841e852d0]Lol - ein Widerstand zum Siedepunkt von Wolfram?

31.08.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Dell

Schönes Ding.

Darfs etwas weniger sein?
Kompilieren Markieren Separieren

!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