XProfan

- page 1 -

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

30.08.2006 ▲

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.

30.08.2006 ▲

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

- page 2 -

Michael
Dell

[quote-part:5bd597ed51]tu as qui l'affaire oui chacun optique pris.

[/quote-part:5bd597ed51]
I.. I.. je peux simple pas anders, Hrrmpf!
encore plus optique klau

:
Kompilieren Marque Séparation

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

Salu Michael...

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

02.09.2006 ▲