Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

LOAD загружает определения

Функция - отображение между множествами | Управляющие структуры Лиспа являются формами | LET создаёт локальную связь | Разветвление вычислений: условное предложение COND | Циклические вычисления: предложения FOR, FOR*, WHILE и DO-WHILE | Повторение через итерацию или рекурсию | READ-LINE читает и возвращает выражение |


Читайте также:
  1. I Определения
  2. I. Дайте определения следующих правовых категорий.
  3. I. Дайте определения следующих правовых категорий.
  4. I. Дайте определения следующих правовых категорий.
  5. I. Дайте определения следующих правовых категорий.
  6. I. Дайте определения следующих правовых категорий.
  7. I. Дайте определения следующих правовых категорий.

На практике написание программ осуществляется записью в файл определений функций, данных и других объектов с помощью имеющегося в программном окружении редактора. После этого для проверки определений вызывают интерпретатор Лиспа, который может прочитать записанные в файл выражения директивой  load:

(  имя-файла load)

Читаемые выражения вычисляются так, как будто бы они были введены пользователем. После загрузки можно использовать функции, значения переменных, значения свойств и другие определения. 
Для работы с файлами содержится кроме описанных выше средств большое количество возможностей, в том числе переименование и удаление файлов. 

Пример: есть 5 ПК, у каждого свое железо (CPU(число), HDD(число), VGA(число),блок питания(число), монитор(имя), корпус(имя)). Нужно из все 5-ти ПК вывести самый худший

Код Lisp
  (SETF pc1 '(2.2 90 128 300 samsung minitower)) (SETF pc2 '(2.4 100 256 400 acer viga)) (SETF pc3 '(2.6 110 256 500 lg gina)) (SETF pc4 '(3.0 120 256 600 sony laxe)) (SETF pc5 '(3.2 170 512 900 asus gvin)) (defun min (x y)) (IF (< x y) y x))) (defun min 5 (x y z c v) (min (min (min x y) (min z c))v)) (SETQ minCPU (CAR pc1) (CAR pc2) (CAR pc3) (CAR pc4) (CAR pc5)) (IF (= minCPU (CAR pc1)) (SETQ pcs1 1) (SETQ pcs1 0)) (IF (= minCPU (CAR pc2)) (SETQ pcs2 1) (SETQ pcs2 0)) (IF (= minCPU (CAR pc3)) (SETQ pcs3 1) (SETQ pcs3 0)) (IF (= minCPU (CAR pc4)) (SETQ pcs4 1) (SETQ pcs4 0)) (IF (= minCPU (CAR pc5)) (SETQ pcs5 1) (SETQ pcs5 0))
 

 


Дата добавления: 2015-07-21; просмотров: 56 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Использование файлов| Этапы выполнения задания.

mybiblioteka.su - 2015-2024 год. (0.006 сек.)