XProfan

Wow chez solch einem Babyklappen-entrée peux je seulement dire: Dankeschön lieber Unbekannter!

Jörg
Sellmeyer

Dem peux je mich seulement anschließen et habs juste encore un un peu optimiert:
Kompilieren Marque Séparation

!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

là manquer encore Rankine, Römer et Delisle! (Parcival beherrscht qui déjà!!!!)

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

wohin mets on qui car un?
qui Formeln qui maintenant voilà, sommes alle aktuell gebräuchliche (qui je aussi déjà est habe). qui anderen kenne je pas.
[quote-part:ed9a4acaa1]
Versionen avant XProfan8?
Decimals 2
Imprimer CelsiusToFahrenheit 36.89
[/quote-part:ed9a4acaa1]
Kompilieren Marque Séparation

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

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

cela Ganze dans qui Wiki: [...]

31.08.2006 ▲

Jac
de
Lad

Jo, dans Wiki stehts. Außer Celsuis et Kelvin (et peut-être Fahrenheit dans USA et so) sommes qui anderen Skalen pas plus important.

BTW: chez Grad Delisle wird qui Wert qui température kleiner je höher qui température 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 ▲

[quote-part:5841e852d0=Jacob Liebeck]Jo, dans Wiki stehts. Außer Celsuis et Kelvin (et peut-être Fahrenheit dans USA et so) sommes qui anderen Skalen pas plus important.

BTW: chez Grad Delisle wird qui Wert qui température kleiner je höher qui température ist! Vrerückt!!!

[/quote-part:5841e852d0]Lol - un Widerstand zum Siedepunkt de Wolfram?

31.08.2006 ▲

Michael
Dell

Schönes Ding.

Darfs quelque chose moins son?
Kompilieren Marque Séparation

!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
Fin

Salu Michael...

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

[quote-part:6e098658e4=Michael Dell]Schönes Ding.

Darfs quelque chose moins son?[/quote-part:6e098658e4]
tu as qui l'affaire oui chacun optique pris.

Michael
Dell

. . .

Salu Michael...

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

Nico
Madysa

Grad Öxle avons zwar rien avec qui température trop 1faire, klingen mais très joli.
peux sous Öxle (ou bien Öhsle?) sous Wikipedia nachgeschlagen volonté.

Nico Madysa