Дерева (графи), Детальна інформація
Дерева (графи)
Тип документу: Реферат
Сторінок: 7
Предмет: Математика
Автор: Олексій
Розмір: 10.7
Скачувань: 1768
2. Функцiя (CLEAR-INPUT) чистить буфер вводу. В будь-якому випадку повертається NIL.
3. Функцiя (READ-LINE) читає елементи з CIS поки не буде прочитано символ переходу на новий рядок (). Повертається символ, Р-iм'я якого складається з усiх прочитаних символiв як тi були розташованi у вхiдному рядку, окрiм .
4. Функцiя (READ-CHAR) читає наступний елемент з CIS та повертає його.
5. Функцiя (UNREAD-CHAR) повертає в CIS останнiй прочитаний символ.
6. Функцiя (LISTEN) повертає T якщо CIS не порожнiй, та NIL якщо ми дiйшли до кiнця файлу.
7. Функцiї (OPEN-INPUT-FILE "") та (CLOSE-INPUT-FILE "") використовуються для вiдкриття та закриття файла для вводу.
8. Функцiї (OPEN-OUTPUT-FILE "") та (CLOSE-OUTPUT-FILE "") вiдповiдно вiдкривають та закривають файл для виводу iнформацiї.
Приклади
1. Надрукувати кiлькiсть лiтер sym в файлi name.
(DEFUN f (name sym) (SETQ a (READ))
(SETQ c 0) (IF (EQL a sym) (INCQ c)) )
(OPEN-INPUT-FILE name) (CLOSE-INPUT-FILE name)
(LOOP c)
((NOT (LISTEN)))
2. Надрукувати файл в оберненому порядку, якщо його елементи є атомами.
(DEFUN rew (in out) (PUSH (READ) temp) )
(OPEN-INPUT-FILE in) (LOOP
(OPEN-OUTPUT-FILE out) ((EQL temp NIL))
(SETQ temp NIL) (WRITE (POP temp))
(LOOP (SPACES 1) )
((NOT (LISTEN))) (CLOSE-INPUT-FILE in)
††††††††††††\x2820\x4C43\x534F\x2D45\x554F\x5054\x5455\x462D\x4C49\x2045\x756F\x2974†\x2920
Завдання
1. Написати функцiю (SRT ), яка сортує текстовий файл та виводить данi в файл .
2. Написати функцiї (PRNUM2 num) та (PRNUM16 num), якi вiдповiдно друкують введенi десятковi числа в двiйковому та шiстнадцятковому представленнi.
3. Згенерувати за даними числом n та символом y список (y yy yyy yyyy .... yyyyyyyy. Кiлькiсть лiтер s в останньому елементi списку дорiвнює n.
Пpиклади.
Пpиклад 1. Число вводиться своїм двiйковим представленням (довжина числа не перевищує 10000 двiйкових розрядiв). Необхiдно визначити, чи дiлиться воно на 15.
3. Функцiя (READ-LINE) читає елементи з CIS поки не буде прочитано символ переходу на новий рядок (). Повертається символ, Р-iм'я якого складається з усiх прочитаних символiв як тi були розташованi у вхiдному рядку, окрiм .
4. Функцiя (READ-CHAR) читає наступний елемент з CIS та повертає його.
5. Функцiя (UNREAD-CHAR) повертає в CIS останнiй прочитаний символ.
6. Функцiя (LISTEN) повертає T якщо CIS не порожнiй, та NIL якщо ми дiйшли до кiнця файлу.
7. Функцiї (OPEN-INPUT-FILE "") та (CLOSE-INPUT-FILE "") використовуються для вiдкриття та закриття файла для вводу.
8. Функцiї (OPEN-OUTPUT-FILE "") та (CLOSE-OUTPUT-FILE "") вiдповiдно вiдкривають та закривають файл для виводу iнформацiї.
Приклади
1. Надрукувати кiлькiсть лiтер sym в файлi name.
(DEFUN f (name sym) (SETQ a (READ))
(SETQ c 0) (IF (EQL a sym) (INCQ c)) )
(OPEN-INPUT-FILE name) (CLOSE-INPUT-FILE name)
(LOOP c)
((NOT (LISTEN)))
2. Надрукувати файл в оберненому порядку, якщо його елементи є атомами.
(DEFUN rew (in out) (PUSH (READ) temp) )
(OPEN-INPUT-FILE in) (LOOP
(OPEN-OUTPUT-FILE out) ((EQL temp NIL))
(SETQ temp NIL) (WRITE (POP temp))
(LOOP (SPACES 1) )
((NOT (LISTEN))) (CLOSE-INPUT-FILE in)
††††††††††††\x2820\x4C43\x534F\x2D45\x554F\x5054\x5455\x462D\x4C49\x2045\x756F\x2974†\x2920
Завдання
1. Написати функцiю (SRT ), яка сортує текстовий файл та виводить данi в файл .
2. Написати функцiї (PRNUM2 num) та (PRNUM16 num), якi вiдповiдно друкують введенi десятковi числа в двiйковому та шiстнадцятковому представленнi.
3. Згенерувати за даними числом n та символом y список (y yy yyy yyyy .... yyyyyyyy. Кiлькiсть лiтер s в останньому елементi списку дорiвнює n.
Пpиклади.
Пpиклад 1. Число вводиться своїм двiйковим представленням (довжина числа не перевищує 10000 двiйкових розрядiв). Необхiдно визначити, чи дiлиться воно на 15.