17 lines
719 B
Plaintext
17 lines
719 B
Plaintext
Procedure.d Kelvin2Celsius(tK.d) : ProcedureReturn tK-273.15 : EndProcedure
|
|
Procedure.d Kelvin2Fahrenheit(tK.d) : ProcedureReturn tK*1.8-459.67 : EndProcedure
|
|
Procedure.d Kelvin2Rankine(tK.d) : ProcedureReturn tK*1.8 : EndProcedure
|
|
|
|
OpenConsole()
|
|
Repeat
|
|
Print("Temperatur Kelvin? ") : Kelvin.d = ValD(Input())
|
|
PrintN("Conversion:")
|
|
PrintN(#TAB$+"Celsius "+#TAB$+RSet(StrD(Kelvin2Celsius(Kelvin),2),8,Chr(32)))
|
|
PrintN(#TAB$+"Fahrenheit"+#TAB$+RSet(StrD(Kelvin2Fahrenheit(Kelvin),2),8,Chr(32)))
|
|
PrintN(#TAB$+"Rankine "+#TAB$+RSet(StrD(Kelvin2Rankine(Kelvin),2),8,Chr(32)))
|
|
PrintN("ESC = End.")
|
|
Repeat
|
|
k$=Inkey() : Delay(50) : If RawKey()=#ESC : End : EndIf
|
|
Until RawKey()
|
|
ForEver
|