Среднее из трех чисел - Lisp
Формулировка задачи:
1.Предикат сравнения (> x у) истинен, если х больше, чем у. Необходимо задать с помощью предиката > и условного предложения функцию, которая возвращает из трех числовых аргументов значение среднего по величине числа. Например:
Листинг программы
- (среднее 4 7 6)
- ==> 6
Решение задачи: «Среднее из трех чисел»
textual
Листинг программы
- ; racket-lang.org
- (define (foo x y z)
- (min (max x y) (max y z) (max x z)))
Объяснение кода листинга программы
В данном коде на языке Lisp функция с именем foo принимает три аргумента x, y, z. Внутри функции происходит вычисление среднего из трех чисел. Для этого сначала находят максимальное значение из чисел x и y, затем из полученного значения и числа z. Полученный результат сохраняется в переменную result. Затем возвращается значение переменной result.
- (define (foo x y z)
- (min (max x y) (max y z) (max x z)))
- Функция foo принимает три аргумента x, y, z
- Вычисляется максимальное значение из чисел x и y
- Результат сохраняется в переменную result
- Вычисляется максимальное значение из чисел y и z
- Результат сохраняется в переменную result
- Вычисляется максимальное значение из чисел x и z
- Результат сохраняется в переменную result
- Возвращается значение переменной result
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
