Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Tr1fonoff
0 / 0 / 0
Регистрация: 14.07.2017
Сообщений: 4
1

Перевести в visual prolog 8

28.06.2019, 11:39. Просмотров 294. Ответов 3

Есть код, написал его 3 года назад на turbo prolog'е, нужно исправить синтаксис для работы в visual prolog 8.
КОД:
Prolog
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
% Copyright
implement main
open core
 
domains
producer = string.
price = integer.
diagonal_screen = real.
model = string.
ram = integer.
hard_drive_capacity = integer.
operational_system = string.
 
item = notebook(producer, price, diagonal_screen, model, ram, hard_drive_capacity, operational_system).
 
facts
product: (item).
 
constants
null = 0.
 
predicates
determ menu
determ printall
determ print(item)
nondeterm choice(integer) - (i)
nondeterm findByProducer(producer, item) - (i,o)
nondeterm findByPrice(price, price, item) - (i,i,o)
nondeterm findByDiagonal_screen(diagonal_screen, item) - (i,o)
nondeterm findByModel(model, item) - (i,o)
nondeterm findByram(ram, item) - (i,o)
nondeterm findByHard_drive_capacity(hard_drive_capacity, item) - (i,o)
nondeterm findByOperational_system(operational_system, item) - (i,o)
nondeterm addItem(producer, price, diagonal_screen, model, ram, hard_drive_capacity, operational_system)-(i,i,i,i,i,i,i)
nondeterm deleteRecord(producer, model)-(i,i)
 
clauses
menu:-write("BbI6epuTe geucTBue: "),nl,
write("1 - Print"),nl,
write("2 - find by Producer"),nl,
write("3 - find by Model "),nl,
write("4 - find by Diagonal screen "),nl,
write("5 - find by RAM "),nl,
write("6 - find by Hard Drive Capacity "),nl,
write("7 - find by Operational System "),nl,
write("8 - find by Price"),nl,
write("9 - add a new record"),nl,
write("10 - delete record"),nl,
readint(C),
consult("C:\\Users\\kIT\\Documents\\Visual Prolog Projects\\bd.txt"),
choice(C),!,menu.
 
choice(1):-writef("%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),
    nl, printall, fail;true.
choice(2):-write("BBeguTe Producer - "),
    readln(P),
    writef("%-20\t %-20\t %-20\t %-20\t %-20\t %-20\t %-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByProducer(P, Item),
    print(Item),
    fail;true.
choice(3):-write("BBeguTe Model - "),
    readln(M),
    writef("%-20\t %-20\t %-20\t %-20\t %-20\t %-20\t %-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByModel(M, Item),
    print(Item),
    fail;true.
choice(4):-write("BBeguTe Diagonal Screen - "),
    readreal(D),
    writef("%-20\t %-20\t %-20\t %-20\t %-20\t %-20\t %-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByDiagonal_screen(D, Item),
    print(Item),
    fail;true.
choice(5):-write("BBeguTe RAM - "),
    readint(O),
    writef("%-20\t %-20\t %-20\t %-20\t %-20\t %-20\t %-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByVolume_ram(O, Item),
    print(Item),
    fail;true.
choice(6):-write("BBeguTe Hard Drive Capacity - "),
    readint(H),
    writef("%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByHard_drive_capacity(H, Item),
    print(Item),
    fail;true.
choice(7):-write("BBeguTe Operational System - "),
    readln(S),
    writef("%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t%-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByOperational_system(S, Item),
    print(Item),
    fail;true.
choice(8):-write("BBeguTe Minimal Price - "),
    readint(Min),
    write("BBeguTe Maximal Price - "),
    readint(Max),
    writef("%-20\t %-20\t %-20\t %-20\t %-20\t %-20\t %-20\t", "Producer", "Model", "Diagonal_Screen", "RAM", "Hard Drive Capacity", "Operational_System", "Price"),nl,
    findByPrice(Min, Max, Item),
    print(Item),
    fail;true.
choice(9):-write("BBeguTe Producer - "),
    readln(Producer),
    write("BBeguTe Model - "),
    readln(Model),
    write("BBeguTe Diagonal Screen - "),
    readreal(Diagonal_screen),
    write("BBeguTe Processor - "),
    readln(Processor),
    write("BBeguTe Videocard - "),
    readln(Videocard),
    write("BBeguTe Volume_RAM - "),
    readint(Volume_ram),
    write("BBeguTe Hard Drive Capacity - "),
    readint(Hard_drive_capacity),
    write("BBeguTe Operational System - "),
    readln(Operational_System),
    write("BBeguTe Weight - "),
    readreal(Weight),
    write("BBeguTe Price - "),
    readreal(Price),
    Item = notebook(Producer, Model, Diagonal_screen, Processor, Videocard, Volume_ram, Hard_drive_capacity, Operational_System, Weight, Price),nl,
    assertz(product(Item)),
    save("C:\\Users\\kIT\\Documents\\Visual Prolog Projects\\TrifonovLab\\bd.txt"),
    retractall(_),
    retract(product(Item)),
    print(Item),
    fail;true.
choice(10):- write("Enter producer for delete: "),
    readln(Producer),
    write("Enter model for delete: "),
    readln(Model),
    nl,
    deleteRecord(Producer, Model),
    save("C:\\Users\\kIT\\Documents\\Visual Prolog Projects\\TrifonovLab\\bd.txt"),
    retractall(_),
    fail;true.
 
 
printall:-retract(product(Item)),
print(Item), fail; true.
print(Item):-Item = notebook(Producer, Model, Diagonal_Screen, RAM, Hard_Drive_Capacity, Operational_System, Price),
writef("%-20\t %-20\t %-35\t %-7\t %-30\t %-30\t %-20\t", Producer, Model, Diagonal_Screen, RAM, Hard_Drive_Capacity, Operational_System, Price),
nl.
 
findByProducer(Producer, Item):-retract(product(Item)),
Item = notebook(Producer,_,_,_,_,_,_,_,_,_).
 
findByModel(Model, Item):-retract(product(Item)),
Item = notebook(_,Model,_,_,_,_,_,_,_,_).
 
findByDiagonal_Screen(Diagonal_screen, Item):-retract(product(Item)),
Item = notebook(_,_,Diagonal_screen,_,_,_,_,_,_,_).
 
findByVolume_ram(ram, Item):-retract(product(Item)),
Item = notebook(_,_,_,_,_,RAM,_,_,_,_).
 
findByHard_drive_capacity(Hard_drive_capacity, Item):-retract(product(Item)),
Item = notebook(_,_,_,_,_,_,Hard_drive_capacity,_,_,_).
 
findByOperational_system(Operational_system, Item):-retract(product(Item)),
Item = notebook(_,_,_,_,_,_,_,Operational_System,_,_).
 
findByPrice(Min, Max, Item):-retract(product(Item)),
Item = notebook(_,_,_,_,_,_,_,_,_,Price),
Price >= Min,
Price <= Max.
 
addItem(Producer, Model, Diagonal_screen, RAM, Hard_drive_capacity, Operational_system,  Price):-assert (product(notebook(Producer, Model, Diagonal_screen, RAM, Hard_drive_capacity, Operational_system, Price))).
 
deleteRecord(Producer, Model):- retract(product(notebook(Producer, Model, _, _, _, _, _, _, _, _))).
 
goal
menu.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2019, 11:39
Ответы с готовыми решениями:

Перевести код из turbo prolog в visual prolog
не подскажите плиз как будет выглядеть код turbo prolog в Visual Prologe 5.2 turbo prolog: ...

Перевести код из turbo prolog в visual prolog
не подскажите плиз как будет выглядеть код turbo prolog в Visual Prologe 7.3 turbo prolog: ...

Помогите перевести на Visual Prolog
Black Fregat, Всё заработало. Помогите ещё с этим кодом пожалуйста gr(1, ). gr(2, ). gr(3, )....

Перенос программы с Visual Prolog 7.1 в Visual Prolog 7.5
Проблема переноса. Взяла пример с книги Visual Prolog 7.1 для начинающих. Это игра червь. Вроде...

Пожалуйста, помоите переделать программу с Turbo Prolog на Visual Prolog
DOMAINS l_i=integer* l_s=string* i=integer s=string c=char structura=str(i,s) %Структура...

3
Black Fregat
2996 / 1609 / 457
Регистрация: 31.05.2009
Сообщений: 5,733
28.06.2019, 17:35 2
Выполните рекомендации: Перевод в Visual Prolog
Часть Вы уже сделали, надо перевести описания предикатов.
И очень зря Вы выкинули часть кода, включая оригинальный goal
0
Tr1fonoff
0 / 0 / 0
Регистрация: 14.07.2017
Сообщений: 4
28.06.2019, 18:32  [ТС] 3
Black Fregat,
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
class predicates
menu: determ
printall: determ
print: (item) determ
choice: (integer) nondeterm - (i).
findByProducer: (producer, item) nondeterm - (i,o)
findByPrice: (price, price, item) nondeterm - (i,i,o)
findByDiagonal_screen: (diagonal_screen, item) nondeterm - (i,o)
findByModel: (model, item) nondeterm - (i,o)
findByram: (ram, item) nondeterm - (i,o)
findByHard_drive_capacity: (hard_drive_capacity, item) nondeterm - (i,o)
findByOperational_system: (operational_system, item) nondeterm - (i,o)
addItem: (producer, price, diagonal_screen, model, ram, hard_drive_capacity, operational_system) nondeterm -(i,i,i,i,i,i,i)
deleteRecord: (producer, model) nondeterm -(i,i)
Так?
0
Black Fregat
2996 / 1609 / 457
Регистрация: 31.05.2009
Сообщений: 5,733
28.06.2019, 19:52 4
Tr1fonoff, я на глаз не вижу. Что компилятор пишет?

Добавлено через 1 минуту
Или выкладывайте код весь, буду сам кормить компилятору
0
28.06.2019, 19:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.06.2019, 19:52

Из Turbo Prolog в Visual Prolog - где будут отличия в коде?
ребята ,помогите. есть прога на турбо прологе,а нужно отредактировать под visual prolog 7.5. Что...

Код Turbo Prolog переделать в Visual Prolog 5.2
Помогите пожалуйста переделать код Turbo Prolog в Visual Prolog 5.2 domains...

[Turbo Prolog] [Visual Prolog] Задача на рекурсию
Здравствуйте, помогите, пожалуйста, с такой задачей... Имеется горсть из N Монет C1,C2,....,Cn...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru