Skip to content

Commit 5f16328

Browse files
committed
🔨 adding readme for lab_05
1 parent 9c10033 commit 5f16328

File tree

1 file changed

+29
-0
lines changed

1 file changed

+29
-0
lines changed

lab_05/readme.md

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
# Лабораторная работа 5
2+
3+
1. Написать функцию, которая принимает целое число и возвращает первое четное число, не меньшее аргумента.
4+
2. Написать функцию, которая принимает число и возвращает число того же знака, но с модулем на 1 больше модуля аргумента.
5+
3. Написать функцию, которая принимает два числа и возвращает список из этих чисел, расположенный по возрастанию.
6+
4. Написать функцию, которая принимает три числа и возвращает Т только тогда, когда первое число расположенно между вторым и третьим.
7+
5. Каков результат вычисления следующих выражений?
8+
9+
* `(and ’fee ’fie ’foe)`
10+
* `(or nil ’fie ’foe)`
11+
* `(and (equal ’abc ’abc) ’yes)`
12+
* `(or ’fee ’fie ’foe)`
13+
* `(and nil ’fie ’foe)`
14+
* `(or (equal ’abc ’abc) ’yes)`
15+
16+
6. Написать предикат, который принимает два числа-аргумента и возвращает Т, если первое число не меньше второго.
17+
7. Какой из следующих двух вариантов предиката ошибочен и почему?
18+
19+
```lisp
20+
(defun pred1 (x)
21+
(and (numberp x) (plusb x))
22+
)
23+
24+
(defun pred2 (x)
25+
(and (plusp x) (numberp x))
26+
)
27+
```
28+
29+
8. Решить задачу 4, используя для ее решения конструкции IF, COND, AND/OR.

0 commit comments

Comments
 (0)