22 lines
439 B
Text
22 lines
439 B
Text
|
(define (to-celsius k)
|
||
|
|
(- k 273.15)
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (to-fahrenheit k)
|
||
|
|
(- (* k 1.8) 459.67)
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (to-rankine k)
|
||
|
|
(* k 1.8)
|
||
|
|
)
|
||
|
|
|
||
|
|
(define (kelvinConversion k)
|
||
|
|
(if (number? k)
|
||
|
|
(println k " kelvin is equivalent to:\n"
|
||
|
|
(to-celsius k) " celsius\n"
|
||
|
|
(to-fahrenheit k) " fahrenheit\n"
|
||
|
|
(to-rankine k) " rankine")
|
||
|
|
(println "Please enter a number only, with no º or letter. ")
|
||
|
|
)
|
||
|
|
)
|