1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| domains
n=integer
vlad,nom_tel,adres=string
database
bd_tel(n,vlad,nom_tel,adres)
predicates
process(n)
start
repeat
tel(n,vlad,nom_tel,adres)
clauses
tel(1,"Иванов","23-34-56","Советская 17").
start:-
makewindow(1,23,2,"Раюбота с динамичсекой базой данной",0,0,25,80),nl,nl,nl,nl,
write(" 1. „Добавление"),nl,
write(" 2. "Удаление."),nl,
write(" 3. "Просмотр"."),nl,
write(" 4. ‚"Выход."),nl,
readint(K),
process(K),K=4,!.
repeat.
repeat:-repeat.
process(1):-makewindow(3,7,7,"„добавление записей в базу данных",0,0,25,80),nl,nl,nl,nl,
shiftwindow(3),
write(" введите порядковый номер записи"),nl,
readint(N),
write(" Введите фамилию имя отчество владельца "),nl,
readln(Vlad),
write("Введите номер телефона "),nl,
readln(Nom_tel),
write(" Введите адрес владельца телефона* "),nl,
readln(Adres),
assertz(bd_tel(N,Vlad,Nom_tel,Adres)),nl,
write(Nom_tel," -телефон добавлен в базу данных"),nl,
write("нажмите любую клавишу"),
readchar(_),
removewindow.
process(2):-makewindow(3,7,7,"ydalim zapis",0,0,25,80),nl,
shiftwindow(3),
write("vvedite poriydkovy nomer"),nl,
readint(N),
write("vvedite fio"),nl,
readln(Vlad),
write("vvedite nomer tel"),nl,
readln(Nom_tel),
write("vvedite adres"),nl,
readln(Adres),
retract(bd_tel(N,Vlad,Nom_tel,Adres)),nl,
write(Nom_tel,"-tel ydalen"),nl,
write("nagmite lybyu klavishy"),
readchar(_),
removewindow.
process(3):-makewindow(3,7,7,"prosmotr",0,0,25,80),nl,nl,nl,nl,
shiftwindow(3),
consult(bd_menu),
removewindow.
process(4):-makewindow(3,7,7,"Работа с динамической базой данных",0,0,25,80),nl,nl,nl,nl,
write("Вы хотите закончить работу с базой данных? (y/n)?"),nl,
readln(Answer),
frontchar(Answer,'y',_),!.
goal
start |
(
