База данных продуктового магазина
Содержание
Нормативные
ссылки
Введение
Постановка
задачи
Описание
запросов к базе данных
Результаты
ручного выполнения запросов и руководство по сборке и запуску на проверку
программ
Заключение
Список
литературы
Приложение
Нормативные ссылки
ГОСТ Р 1.5-2004 Стандарты национальные
Российской Федерации.
Правила построения, изложения, оформления и
обозначения
ГОСТ 2.104-68 ЕСКД. Основные надписи
ГОСТ 7.80-2000 СИБИД. Библиографическая запись.
Заголовок. Общие
требования и правила составления
ГОСТ 7.82-2001 СИБИД. Библиографическая запись.
Библиографическое
описание электронных ресурсов. Общие требования
и правила составления
ГОСТ 7.9-95 СИБИД. Реферат и аннотация. Общие
требования
ГОСТ 19.001-77 ЕСПД. Общие положения
ГОСТ 19.104-78 ЕСПД. Основные надписи
ГОСТ 19.401-78 ЕСПД. Текст программы. Требования
к содержанию и
оформлению
ГОСТ 19.402-78 ЕСПД. Описание программы
ГОСТ 19.404-79 ЕСПД. Пояснительная записка.
Требования к содержанию и оформлению
Введение
Пролог - язык и система логического
программирования, основанные на языке предикатов
<#"721630.files/image001.gif">
Рисунок 1
Поиск товара.
Рисунок 2
Добавление товара в базу.
Рисунок 3
Удаление товара.
Рисунок 4
Просмотр товаров.
Рисунок 5
Заключение
база данный магазин
запрос
Список литературы
Братко
И. Программирование на языке Пролог для искусственного интеллекта: пер. с англ.
- М.: Мир, 1990. - 560 с.: ил.
Братко
И. Алгоритмы искусственного интеллекта на языке PROLOG, 3-е издание.: пер. с
англ. - М.: ИД «Вильямс», 2004. - 640 с.: ил.
Малпас
Дж. Реляционный язык Пролог и его применение: пер. с англ. - М.: Наука, 1990. -
464 с.
Метакидес
Г., Нероуд А. Принципы логики и логического программирования. - Пер. с англ. -
М.: Факториал, 1998. - 288 с.
Стерлинг
Л., Шапиро Э. Искусство программирования на языке Пролог: пер. с англ. - М.:
Мир, 1990. - 333 с.: ил.
Стобо
Дж. Язык программирования Пролог: пер. с англ. - М.: Радио и связь, 1993. - 368
с.: ил.
Хоггер
К. Введение в логическое программирование. - Пер. с англ. - М.: Мир, 1988. -
348 с.
Приложение A
Листинг запросов к БД (hhhhhh.pl)
:-dynamic record/8.
(1,'sensation','htc',4.3,'qualcomm_msm8260',8,100,6600).(2,'galaxy_note','samsung',5.3,'samsung_exynos_4210',8,550,11500).(3,'galaxy_note_ii','samsung',5.55,'samsung_exynos_4412',8,245,14600).(4,'xperia_z_ultra','sony',6.44,'qualcomm_snapdragon_800',8,590,18000).:-('--------------------------------------------'),nl,('--------БД
МАГАЗИНА
Mobium----------'),nl,('--------------------------------------------'),nl,nl,menu.
menu:-('Введите номер 1,2,3 или 4'),nl,('1.
Добавить запись в БД'),nl,('2. Удалить запись из БД'),nl,('3. Поиск по
ID'),nl,('4. Просмотр всех записей'),nl,('5. Поиск по производителю'),nl,('6.
Поиск по цене'),nl,('7. Завершение работы'),nl,
read(C),nl,(C),!.
process(1):-('-----Добавление записи-----'),nl,nl,
write('ID записи:
'),(ID),('Название модели:
'),(MODEL_NAME),('Производитель:
'),(MANUFACTURER),('Дисплей:
'),(DISPLAY),('Процессор:
'),(PROCESSOR),('Камера:
'),(CAMERA),
write('Кол-во на складе: '),
read(KOLVO),('Цена
за
ед.
'),(PRICE),(record(ID,MODEL_NAME,MANUFACTURER,DISPLAY,PROCESSOR,CAMERA,KOLVO,PRICE)),nl,nl,
write('Запись
добавленна!'),nl,nl,menu.(2):-('------Удаление записи------'),nl,nl,('Введите
ID записи: '),
write('Введите ID записи: '),nl,
read(ID),nl,('------------------'),(ID,MODEL_NAME,MANUFACTURER,DISPLAY,PROCESSOR,CAMERA,KOLVO,PRICE),,write('
ID: '),write(ID),,write(' Название
модели:
'),write(MODEL_NAME),,write(' Производитель:
'),write(MANUFACTURER),,write(' Дисплей:
'),write(DISPLAY),,write(' Процессор:
'),write(PROCESSOR),,write(' Камера:
'),write(CAMERA),
nl,write(' Кол-во на складе: '),write(KOLVO),
nl,write(' Цена:
'),write(PRICE),,write('------------------'),,nl,!,menu.
process(4):-write('------Просмотр всех
данных------'),nl,nl,
record(ID,MODEL_NAME,MANUFACTURER,DISPLAY,PROCESSOR,CAMERA,KOLVO,PRICE),,write('
ID: '),write(ID),,write(' Название
модели:
'),write(MODEL_NAME),,write(' Производитель:
'),write(MANUFACTURER),,write(' Дисплей:
'),write(DISPLAY),,write(' Процессор:
'),write(PROCESSOR),,write(' Камера:
'),write(CAMERA),
nl,write(' Кол-во на складе: '),write(KOLVO),
nl,write(' Цена:
'),write(PRICE),,write('------------------'),,nl,fail;
menu.(5):-('------Поиск по
Производителю------'),nl,nl,('Поиск по производителю: '),nl,
read(MANUFACTURER),nl,('------------------'),(ID,MODEL_NAME,MANUFACTURER,DISPLAY,PROCESSOR,CAMERA,KOLVO,PRICE),,write('
ID: '),write(ID),,write(' Название
модели:
'),write(MODEL_NAME),,write(' Производитель:
'),write(MANUFACTURER),,write(' Дисплей:
'),write(DISPLAY),,write(' Процессор:
'),write(PROCESSOR),,write(' Камера:
'),write(CAMERA),
nl,write(' Кол-во на складе: '),write(KOLVO),
nl,write(' Цена:
'),write(PRICE),,write('------------------'),,nl,!,menu.
process(6):-('------Просмотр всех
данных------'),nl,nl,('Минимальная цена'),nl,(MIN),nl,('Максимальная цена'),nl,
read(MAX),nl,(ID,MODEL_NAME,MANUFACTURER,DISPLAY,PROCESSOR,CAMERA,KOLVO,PRICE),>MIN,
PRICE<MAX,,write(' ID: '),write(ID),,write(' Название
модели:
'),write(MODEL_NAME),,write(' Производитель:
'),write(MANUFACTURER),,write(' Дисплей:
'),write(DISPLAY),,write(' Процессор:
'),write(PROCESSOR),,write(' Камера:
'),write(CAMERA),
nl,write(' Кол-во на складе: '),write(KOLVO),
nl,write(' Цена:
'),write(PRICE),,write('------------------'),,nl,fail,menu.
process(7):-('Вы уверенны, что хотите завершить
работу? (y/n)'),(A),esc(A).(A):-==
'y',halt.(A):-== 'n',nl,start.(C):-<1,error.(C):->6,error.:-write('ERROR!
enter number 1,2,3 or 4'),nl,nl,menu.