Экспертная система выбора подарка

@Aliya K · Регистрация: 15.06.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите найти ошибку... Почему программа не выводит результат?

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
(defglobal ?*s* = 0)
(deftemplate Prezent
 (slot pPodarok)
 (slot pPolVozrast)
 (slot pTemperament)
 (slot pPovod)
 (slot pEffekt)
 (slot pCena))
;*******************************************************************
(deffunction VoprosObshiy(?Text_Vopros $?dopustznach)
 (printout t ?Text_Vopros)
 (bind ?Otvet (read))
 (if (lexemep ?Otvet)
 then (bind ?Otvet (lowcase ?Otvet)))
 (while (not (member ?Otvet ?dopustznach)) do
 (printout t ?Text_Vopros)
 (bind ?Otvet (read))
 (if (lexemep ?Otvet) 
 then (bind ?Otvet (lowcase ?Otvet))))
?Otvet)
;********************************************************************'
(defrule Banner
 (declare (salience 10))
 =>(load-facts C:\factpod.txt)
 (printout t crlf crlf)
 (printout t "Expert system. Vipor PODARKA")
 (printout t crlf crlf))
;******************************************************************' 
(defrule VoprosPolVozrast
 (not (PolVozrast ?))
 =>(bind ?otklik(VoprosObshiy "Pol i vozrastnaya kategoriya?(a-Muzhchina,b-Zhenshhina,v-Malchik,g-Devochka,d-ne vajno)"  a b v g d))
 (if (eq ?otklik a)then (assert (PolVozrast Muzhchina)))
 (if (eq ?otklik b)then (assert (PolVozrast Zhenshhina)))
 (if (eq ?otklik v)then (assert (PolVozrast Malchik)))
 (if (eq ?otklik v)then (assert (PolVozrast Devochka)))
 (if (eq ?otklik g)then (assert (PolVozrast VseRavno))))
;******************************************************************'
(defrule VoprosTemperament
 (not (Temperament ?))
 =>(bind ?otklik(VoprosObshiy "Kakoj temperament u nego (nee)?(a-Sangvinik,b-Xolerik,v-Flegmatik,g-Melanxolik,d-VseRavno)"  a b v g d))
 (if (eq ?otklik a)then (assert (Temperament Sangvinik)))
 (if (eq ?otklik b)then (assert (Temperament Xolerik)))
 (if (eq ?otklik v)then (assert (Temperament Flegmatik)))
 (if (eq ?otklik v)then (assert (Temperament Melanxolik)))
 (if (eq ?otklik g)then (assert (Temperament VseRavno))))
;******************************************************************'
(defrule VoprosPovod
 (not (Povod ?))
 =>(bind ?otklik (VoprosObshiy "Kakoj povod?(a-DenRozhdeniya,b-NovyjGod,v-8marta23fevralya,g-VseRavno)"  a b v g))
 (if (eq ?otklik a)then (assert (Povod DenRozhdeniya)))
 (if (eq ?otklik b)then (assert (Povod NovyjGod)))
 (if (eq ?otklik b)then (assert (Povod 8marta23fevralya)))
 (if (eq ?otklik v)then (assert (Povod VseRavno))))
;******************************************************************'
(defrule VoprosEffekt
 (not (Effekt ?))
 =>(bind ?otklik (VoprosObshiy "Zhelaemyj effekt ot podarka?(a-Udivit,b-Obradovat,v-VseRavno)"  a b v))
 (if (eq ?otklik a)then (assert (Effekt Udivit)))
 (if (eq ?otklik b)then (assert (Effekt Obradovat)))
 (if (eq ?otklik v)then (assert (Effekt VseRavno))))
;******************************************************************' 
(defrule VoprosCena
 (not (Cena ?))
 =>(bind ?otklik (VoprosObshiy "Skolko planiruete potratit?(a-do2000,b-ot2000do10000,v-ot10000,g-VseRavno)"  a b v g))
 (if (eq ?otklik a)then (assert (Cena do2000)))
 (if (eq ?otklik b)then (assert (Cena ot2000do10000)))
 (if (eq ?otklik v)then (assert (Cena ot10000)))
 (if (eq ?otklik g)then (assert (Cena VseRavno))))
;******************************************************************' 
(defrule Vivod
 (or (PolVozrast ?xPolVozrast)(PolVozrast VseRavno))
 (or (Temperament ?xTemperament)(Temperament VseRavno))
 (or (Povod ?xPovod)(Povod VseRavno))
 (or (Effekt ?xEffekt)(Effekt VseRavno))
 (or (Cena ?xCena)(Cena VseRavno))
 (Prezent(pPodarok ?Podarok)(pPolVozrast ?xPolVozrast)(pTemperament ?xTemperament)(pPovod ?xPovod)(pEffekt ?xEffekt)(pCena ?xCena))
 =>(bind ?*s*(+ ?*s* 1))
  (printout t crlf "  " ?*s* ".  Podarok : " ?Podarok crlf))
;******************************************************************'

Факты в тексотовм файле записаны так:

Lisp
1
2
3
4
5
6
7
(Prezent(pPodarok 1)(pPolVozrast Muzhchina)(pTemperament Sangvinik)(pPovod DenRozhdeniya)(pEffekt Udivit)(pCena do2000))
 
(Prezent(pPodarok 2)(pPolVozrast Muzhchina)(pTemperament Sangvinik)(pPovod DenRozhdeniya)(pEffekt Udivit)(pCena ot2000do10000))
 
(Prezent(pPodarok 3)(pPolVozrast Muzhchina)(pTemperament Sangvinik)(pPovod DenRozhdeniya)(pEffekt Udivit)(pCena ot10000))
 
(Prezent(pPodarok 4)(pPolVozrast Muzhchina)(pTemperament Xolerik)(pPovod NovyjGod)(pEffekt Obradovat)(pCena ot10000))

Новые блоги и статьи Все статьи Все блоги /
Что нового в C# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .