XProfan

Wow with such one Babyklappen-entry can I only say: Thank you rather Unbekannter!

Jörg
Sellmeyer

the can I me only connect and habs same another little optimiert:
Compile Mark Separation

!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

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

Jac
de
Lad

there are missing yet Rankine, roman and Delisle! (Parcival rule The already!!!!)

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

Michael
Wodrich

where setting one The because one?
The Formeln The now there are, any currently gebräuchliche (The so did i already heard have). The others know I do not.
[quote:ed9a4acaa1]
versions to XProfan8?
Decimals 2
Print CelsiusToFahrenheit 36.89
[/quote:ed9a4acaa1]
Compile Mark Separation

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

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

the Whole in the Wiki: [...]

08/31/06 ▲

Jac
de
Lad

Jo, in Wiki stehts. out of Celsuis and Kelvin (and Perhaps fahrenheit in USA and so) are The others Skalen not any more important.

BTW: with strain Delisle becomes the worth the temperature small apiece higher The temperature is! 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

08/31/06 ▲

[quote:5841e852d0=Jacob Liebeck]Jo, in Wiki stehts. out of Celsuis and Kelvin (and Perhaps fahrenheit in USA and so) are The others Skalen not any more important.

BTW: with strain Delisle becomes the worth the temperature small apiece higher The temperature is! Vrerückt!!!

[/quote:5841e852d0]Lol - one resistance to that Siedepunkt of Wolfram?

08/31/06 ▲

Michael
Dell

beautiful thing.

Darfs something less his?
Compile Mark Separation

!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

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

[quote:6e098658e4=Michael Dell]beautiful thing.

Darfs something less his?[/quote:6e098658e4]
you have the thing Yes each Optik taken.

Michael
Dell

. . .

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Nico
Madysa

strain Öxle having of course nothing with the temperature To do, sound but very beautiful.
can under Öxle (or Öhsle?) under Wikipedia nachgeschlagen go.

Nico Madysa