25 lines
565 B
Text
25 lines
565 B
Text
class Temperature {
|
|
function : Main(args : String[]) ~ Nil {
|
|
k := System.IO.Console->ReadString()->ToFloat();
|
|
c := KelvinToCelsius(k);
|
|
f := KelvinToFahrenheit(k);
|
|
r := KelvinToRankine(k);
|
|
|
|
"K: {$k}"->PrintLine();
|
|
"C: {$c}"->PrintLine();
|
|
"F: {$f}"->PrintLine();
|
|
"R: {$r}"->PrintLine();
|
|
}
|
|
|
|
function : KelvinToCelsius(k : Float) ~ Float {
|
|
return k - 273.15;
|
|
}
|
|
|
|
function : KelvinToFahrenheit(k : Float) ~ Float {
|
|
return k * 1.8 - 459.67;
|
|
}
|
|
|
|
function : KelvinToRankine(k : Float) ~ Float {
|
|
return k * 1.8;
|
|
}
|
|
}
|