Мне просто не хотечется куда-то запротоколировать три часа вчера и четыре часа сегодняДомашнее задание по программированию -- написать функцию, куда надо засунуть число + обозначение Фаренгейта или Цельсия,
а она пересчитывает градусы из Фаренгейта Цельсия и наоборот.
При условии, что есть абсолютный ноль, когда Функция должна на выводе говорить, типа -500 градусов Цельсия это слишком холодно.
Я не удержалась и добавила строчку с температурой гарения бумаги.
И -- нет, программирование по-прежнему занимает у меня много-много часов, просто пиздец как много.
И да, наверняка эту же функцию можно написать как-то поизящней, можно даже потратить еще пару часов на поиски более совершенного текста))
предмет счастья и радости(defun c_to_f_scala (x y)
(cond
((string= "celsius" y)
(cond
((= x 233) (format t "233 degrees Celsius are equal to 451 degrees Fahrenheit — the temperature at which book paper catches fire, and burns."))
((> x -273.15)(format t "~a degrees Celsius are equal to ~a degrees Fahrenheit" x (+ (* x 1.8) 32)))
(T (format t "WARNING! ~a degrees Celsius is too cold to exist!" x))))
((string= "fahrenheit" y)
(cond
((= x 451) (format t "Fahrenheit 451 — the temperature at which book paper catches fire, and burns."))
((> x -459.67) (format t "~a degrees Fahrenheit are equal to ~a degree Celsius" x (/ (- x 32) 1.8)))
(T (format t "WARNING! ~a degree Fahrenheit is too cold to exist!" x))))
(T (format t "False"))))