алг АБС( цел x) арг
|
(Запись на алгоритмической нотации) алг АБС( цел x) арг x нач если (x < 0) то знач := - x иначе знач := x кон (эквивалентная Лисп-программа) (DEFUN Абс(LAMBDA (x) (COND ((< x 0 )(- x)) (T x)))) |
| Пример 4.12. Абсолютное значение числа. |
| Закрыть окно |
