Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 31
На сайте нет зарегистрированных пользователей

Пользователей: 13,361
новичок: uehuat
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование работы крупного аэропорта на GPSS + Пояснительная записка
Компьютерный магазин на Turbo Pascal (База данных) + Пояснительная записка
моделирование процесса поступления заявок в ЭВМ на GPSS + Пояснительная ...

Использование списков в Prolog


Все они основаны на выделении головы и хвоста и использовании рекурсии, что удобно в связи с неопределенной длиной списка.
1) разделение на голову и хвост. Операция осуществляется | (вертикальной чертой ) [Head|Tail]
Пример: вывод элементов списка

Domains.
List=integer*
Predicates
Print_list(list)
Clauses
Print_list([])./*условие прекращения реурсии*/
Print_list([H | T]):- write (H),nl,
Print_list(T).



2-я клауза срабатывает до тех пор, пока Т не станет пустым списком, тогда срабатывает первая(прекращение рекурсии).

2) поиск элементов в списке
очевидно предикат должен иметь два аргумента: 1) что искать;
2) список, в котором надо искать.
B= number*
Number=integer
Predicates
Find(H,[H|-]).
Find(H,[-|T]):-
Find(H,T).



1-я клауза срабатывает, когда искомый элемент является 1-й в списке, если нет – производится рекурсивный вызов для списка является хвостом.
3) Деление списков.
Пусть необходимо разделить список на 2: в одном элементы меньше порога, в другом – больше.
Идея работы: из исходного списка выделяется голова, включается в 1-й или во 2 –й список до исчерпания исходного списка.

Означивание переменных происходит не только при сопоставлении подцелей, но и при сопоставлении заголовка. В данном случае, означивается М как 40, Н – как 30, делается попытка представить первый результирующий список в виде головы и хвоста, но голова при этом уже известна. Это соответствует попытке прилепить голову к неизвестному списку L1. Коль скоро это невозможно (L1 сцеплен с Ls1 и не определен), то действие отклоняется в стек. Проводится условие H 4) Присоединение списка.
Список L1 необходимо присоединить к списку L2, создав список L3, который в начале пустой.
domains
list = integer*
predicates
app (list, list, list,)
clauses
app ([], L, L)
app ([N/L1], L2, [N/L3]): - app (L1, L2, L3)
L1 = [1, 2, 3]
L2 = [4, 5, _]
L3 = [ ]




При срабатывании 1-ой клаузы неозначенная переменная L означивается как L2, затем означивает L3 как L2, и начинается сворачивание рекурсии: к L3 = L2 поочередно добавляются головы 3, 2, 1.
5) Компоновка данных в список
Для решения этой задачи существует встроенный предикат с таким предописанием:
findall (<объект входного предиката>,
<входной предикат>,
<имя выходного списка>)



Пример: пусть есть статическая база данных об очках футбольных команд
predicates
football (name, points)
clauses
football (“kom1”, 10).
Football (“kom2”, 7).
........
football (“kom10”, 2).
........
findall (Points, football (-, Points), Points.list)
[10, 7, ..., 2]



Примечание: возможно использование файлов на внешних носителях. Есть такие операции как назначение файла текущим устройством в/в, открытие файла на запись, чтение, дозапись, модификацию и т.д.
Пример: посимвольная запись символов с клавиатуры
clauses
creat_file: -
nl, write (“Введите имя файла”), nl,
readln (Filename),
openwrite (df, Filename),
writedevice (df),
readchar (c),
r_w_c (c)
closefile (df).
r_w_c (‘#’):- !. /*конец*/
r_w_c (‘\13’):-
write (‘\13\10’),
readchar (c1)
r_w_c (c1)
.........


Опубликовал Kest January 11 2010 15:23:10 · 0 Комментариев · 6188 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
DAlarm
Карта сайта
Rss Parser
Правила программи...
ActiveX в Delphi
Создание отчетов ...
NetGraph [Исходни...
Cooltray
Применение жадног...
Adapter (пример D...
Алгоритм трассиро...
Создание Web-сайт...
Delphi7 Для профе...
Искусство програм...
Фундаментальные а...
Учебник для продв...
VFW
Email
Добавление к ссы...
PCXReader. Програ...

Топ загрузок
Приложение Клие... 100772
Delphi 7 Enterp... 97809
Converter AMR<-... 20260
GPSS World Stud... 17014
Borland C++Buil... 14189
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5972
Visual Studio 2... 5206
Microsoft SQL S... 3661
Случайные статьи
В четвертой главе ...
Алфавитный указате...
Жизнь после мигра...
Идентификация объе...
Например, во время...
Протокол анонсиров...
Команда INSERT
Основные понятия п...
Синтаксис SQL-запроса
Официальный сайт к...
Формирование сообщ...
Описание абстрактн...
OpenGL. МИНИМАЛЬНА...
Как копировать лис...
Функции абстракции
ДОПУСТИМЫЕ СПОСОБЫ...
Как сделать Outloo...
Иногда поддерживаю...
Ежемесячные операции
Интеграция и персп...
PHP класс для импо...
Служба поддержки -...
Gain followers
Пользователь может...
Структурированные ...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?