Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 21.05.2014
Сообщений: 2
1

Переведите пожалуйста с CLIPS на C++

21.05.2014, 11:10. Показов 632. Ответов 3
Метки нет (Все метки)

//Клипс не знаю вовсе, знаю, что семантика другая, но нужно что-то похожее, пожалуйста!!!
Lisp
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
(deffunction ask-question (?question)
 
(printout t ?question)
 
(bind ?answer (read))
 
?answer
 
)
 
(deftemplate answer-count
 
(slot pravilnie)
 
(slot nepravilnie)
 
)
 
(defrule init
 
=>
 
(assert (answer-count (pravilnie 0)(nepravilnie 0)))
 
)
 
(defrule ask-questions1
 
?fact1 <- (answer-count (pravilnie ?c)(nepravilnie ?d))
 
(not (answered 1))
 
=>
 
(bind ?answer (ask-question "Stolica Rossii?"))
 
(if (eq ?answer Moscow)
 
then
 
(modify ?fact1 (pravilnie (+ ?c 1)))
 
else
 
(modify ?fact1 (nepravilnie (+ ?d 1)))
 
)
 
(assert (answered 1))
 
)
 
(defrule ask-questions2
 
?fact1 <- (answer-count (pravilnie ?c)(nepravilnie ?d))
 
(not (answered 2))
 
=>
 
(bind ?answer (ask-question "V kakom godu otmenili krepostnoe pravo? (integer)"))
 
(if (= ?answer 1861)
 
then
 
(modify ?fact1 (pravilnie (+ ?c 1)))
 
else 
 
(modify ?fact1 (nepravilnie (+ ?d 1)))
 
)
 
(assert (answered 2))
 
)
 
(defrule ask-questions3
 
?fact1 <- (answer-count (pravilnie ?c)(nepravilnie ?d))
 
(not (answered 3))
 
=>
 
(bind ?answer (ask-question "V kakom godu bil obrazovan ulgu? "))
 
(if (eq ?answer 1995)
 
then
 
(modify ?fact1 (pravilnie (+ ?c 1)))
 
else 
 
(modify ?fact1 (nepravilnie (+ ?d 1)))
 
)
 
(assert (answered 3))
 
)
 
(defrule ask-questions4
 
?fact1 <- (answer-count (pravilnie ?c)(nepravilnie ?d))
 
(not (answered 4))
 
=>
 
(bind ?answer (ask-question "God osnovania nashego goroda?"))
 
(if (= ?answer 1648)
 
then
 
(modify ?fact1 (pravilnie (+ ?c 1)))
 
else
 
(modify ?fact1 (nepravilnie (+ ?d 1)))
 
)
 
(assert (answered 4))
 
)
 
(defrule result-final
 
?fact1 <- (answer-count (pravilnie ?c)(nepravilnie ?d))
 
(not (final 1))
 
=>
 
(if (= 4 ?c)
 
then
 
(assert (result "Test proiden otlichno."))
 
(printout t crlf "Test proiden otlichno." crlf)
 
else
 
(if (= 4 ?d)
 
then
 
(assert (result "Test ne proiden."))
 
(printout t crlf "Test ne proiden." crlf)
 
else
 
(assert (result "Test proiden, no vam sledyet bolshe udeliat vnimania znaniam."))
 
(printout t crlf "Test proiden, no vam sledyet bolshe udeliat vnimania znaniam." crlf)
 
))
 
(assert (final 1))
 
)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2014, 11:10
Ответы с готовыми решениями:

Переведите с C++ на C# пожалуйста
Имеется текст, который не получается перевести на c# так, чтобы он работал. Текст C++: int prv,...

Переведите пожалуйста из C++ в C#
Задача 1 #include&lt;iostream&gt; using namespace std; void main() { ...

Пожалуйста переведите из С++ в С(Си)
Задание: Работа со строками. Найти длину самого короткого слова #include &lt;string&gt; #include...

Переведите с С++ на Java Пожалуйста
#include &lt;iostream&gt; #include &lt;clocale&gt; #include &lt;cstring&gt; #include &lt;conio.h&gt; using namespace...

3
Почетный модератор
Эксперт С++
5845 / 2855 / 390
Регистрация: 01.11.2011
Сообщений: 6,903
21.05.2014, 11:33 2
Vizarcomp, сами переведите: http://ru.wikipedia.org/wiki/CLIPS
0
0 / 0 / 0
Регистрация: 21.05.2014
Сообщений: 2
21.05.2014, 11:36  [ТС] 3
А возможно ли это в принципе?
0
Почетный модератор
Эксперт С++
5845 / 2855 / 390
Регистрация: 01.11.2011
Сообщений: 6,903
21.05.2014, 11:38 4
Vizarcomp, два вопроса: откуда вы это взяли и зачем?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2014, 11:38

Пожалуйста, переведите с Pascal на C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin ...

Переведите пожалуйста прогамму на С++
program ffair; var x,a,b:real; function Sign(x:real):integer; begin if a+b&lt;0 then x:=-1 ...

Пожалуйста, переведите с С++ на Питон!
Условие задачи: Ввести с клавиатуры вещественную матрицу размерностью 5x5. Определить: 1) сумму...

переведите пожалуйста на Python
Var s:string; i,l:integer; begin readln(s); for i:=2 to length(s)+1 do if s='b' then ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru