лп / Golenishchev / otchet_8
.docМіністерство освіти і науки, молоді і спорту України
Кіровоградський національний технічний університет
Механіко-технологічний факультет
Кафедра програмного забезпечення
Дисципліна: « Логічне програмування »
Лабораторна робота № 8
Тема: «Створення баз даних на мові програмування Turbo Prolog»
Виконав: ст. групи КІ-12-СК
Голєніщев А.С.
Перевірив: викладач
Резніченко В.А.
Кіровоград 2013
Мета: Розглянути організацію баз даних та виконання основних операцій над ними на мові програмування Turbo Prolog.
Завдання:
-
Створити оригінальну БД що містить мінімум 5 записів.
-
Написати програму, що дозволяє виконувати операції пошуку потрібного запису в БД, додавання і видалення записів в БД, перегляд всієї БД.
Лістинг програми:
domains
prizv=string
i,ocenka=integer
database-baza1
fact(prizv,ocenka)
predicates
rep
delete
poisk
view
menu
dodavanya
m(i)
clauses
rep.
rep:-rep.
m(0):-exit,nl.
m(1):-dodavanya,nl.
m(2):-delete,nl.
m(3):-view,nl.
m(4):-poisk,nl.
menu:-rep,readint(X),m(X),!.
poisk:-
consult("d:baza1.dba",baza1),
rep,clearwindow,write("Введите фамилию\n"),
readln(X),fact(X,Y),write("Оценка ",Y),nl.
dodavanya:-
consult("d:baza1.dba",baza1),
readln(X),readint(Y),
assert(fact(X,Y)),
save("d:baza1.dba",baza1).
delete:-
existfile("d:baza1.dba"),
readint(X),
retractall(fact(_,X)),!,
save("d:baza1.dba",baza1).
view:-
fact(X,Y),write(X," ",Y),nl,fail.
goal
write("1 - додавання"),nl,
write("2 - видалення"),nl,
write("3 - перегляд"),nl,
write("4 - пошук"),nl,
write("0
- выход"),nl,menu. 
Рис.1 – Створення бази даних
Результат:
1)Меню:
2) Пошук:
3)Додавання
4) Видалення
5) Перегляд:
Контрольні питання:
-
Що таке база даних?
База даних – впорядкований набір логічно взаємопов'язаних даних, що використовується спільно, та призначений для задоволення інформаційних потреб користувачів
-
За допомогою якого предикату можна активізувати базу даних?
consult(аргумент 1)
-
Яким чином можна додати запис в базу даних?
assert
-
Які предикати використовуються для видалення записів з бази даних?
retract