Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: Temperaturen umwandeln Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt: 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
Session-Cookies
(935)
Deutsch
English
Français
Español
Italia