RosettaCodeData/Task/Temperature-conversion/FOCAL/temperature-conversion.focal
2016-12-05 23:44:36 +01:00

5 lines
183 B
Text

01.10 ASK "TEMPERATURE IN KELVIN", K
01.20 TYPE "K ", %6.02, K, !
01.30 TYPE "C ", %6.02, K - 273.15, !
01.40 TYPE "F ", %6.02, K * 1.8 - 459.67, !
01.50 TYPE "R ", %6.02, K * 1.8, !