Форум программистов, компьютерный форум, киберфорум
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 18.06.2013
Сообщений: 9
1

Можете подсказать в чём ошибка "error c161 : Syntax error: '.' is expected"?

07.02.2016, 21:37. Показов 900. Ответов 1
Метки нет (Все метки)

Грымзик,
Здравствуйте. Можете подсказать в чём ошибка "error c161 : Syntax error: '.' is expected"? Ругается на двоеточие, но оно должно быть тут... ничего не понимаю... заранее благодарен
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
implement main
open core, console
 
class facts
fact: (integer, string).
prob: (integer,integer,string).
 
class predicates
rule: (integer,string,string,integer*) nondeterm(o,i,o,o).
ask: (integer) determ.
recognition: (string).
discover:(integer*) nondeterm.
complete: (integer) determ.
вероятность: () nondeterm.
itog: (integer) nondeterm.
 
clauses
 
ask(X):-fact(X,"Y"),!.
ask(X):-fact(X,"N"),!,fail.
ask(1):-write("ваша болезнь связана с головой?"),!,complete(1).
ask(2):-write("Ваша болезнь связана с животом?"),!,complete(2).
ask(3):-write("Проблемы в паху?"),!,complete(3).
ask(4):-write("У вас повышена температура?"),!,complete(4).
ask(5):-write("У вас есть головокружение/слабость?"),!,complete(5).
ask(6):-write("У вас мигрень/головная боль?"),!,complete(6).
ask(7):-write("Бывает ли озноб?"),!,complete(7).
ask(8):-write("глаза преобрели жёлтый оттенок?"),!,complete(8).
ask(9):-write("Есть ли проблемы со стулом(понос/запор)?"),!,complete(9).
ask(10):-write("У вас болит живот?"),!,complete(10).
ask(11):-write("Присутствует ли у вас кашель?"),!,complete(11).
ask(12):-write("Сопутствует ли запах амиака изо рта?"),!,complete(12).
ask(13):-write("А неприятный запах гнили?"),!,complete(13).
ask(14):-write("Если наклонить голову, вознакает боль?"),!,complete(14).
ask(15):-write("А зуд при массировании гайморовых пазух?"),!,complete(15).
ask(16):-write("Заложен ли у вас нос?"),!,complete(16).
ask(17):-write("Замечали, что давит,болит в груди?"),!,complete(17).
ask(18):-write("Есть ли  вас боль в горле при глотании?"),!,complete(18).
ask(19):-write("Болит ли ваше горло повсеместно?"),!,complete(19).
ask(20):-write("Мучают ли вас непрекращающиеся боли в ухе?"),!,complete(20).
ask(21):-write("Першит ли у вас в горле?"),!,complete(21).
ask(22):-write("Отёкшее у вас горло?"),!,complete(22).
ask(23):-write("Потеряли голос?"),!,complete(23).
ask(24):-write("Присутствует тошнота?"),!,complete(24).
ask(25):-write("У вас есть изжога?"),!,complete(25).
ask(26):-write("Отсутствует аппетит?"),!,complete(26).
ask(27):-write("Понижено давление?"),!,complete(27).
ask(28):-write("У вас воспалены яички?"),!,complete(28).
ask(29):-write("Есть ли место болям в пенисе?"),!,complete(29).
ask(30):-write("Ваш секс стал болезненным?"),!,complete(30).
ask(31):-write("Присутствуют ли в паху сосочковидные наросты?"),!,complete(31).
ask(32):-write("Появилась ли у вас сыпь на лобке?"),!,complete(32).
ask(33):-write("Зудит ли пах?"),!,complete(33).
ask(34):-write("Есть ли у вас в паху язва?"),!,complete(34).
ask(35):-write("Есть ли у вас прозрачные, скудные ненормальные выделения из мочеиспускательного канала?"),!,complete(35).
ask(36):-write("Есть ли герписные высыпания?"),!,complete(36).
ask(37):-write("Нет случаем белого налёта на головке пениса?"),!,complete(37).
 
rule(1,"болезнь","отоларингология",[1]).
rule(2,"болезнь","гастроэнтерология",[2]).
rule(3,"болезнь","венерическая болезнь",[3]).
rule(4,"отоларингология","гайморит",[4,14,15,16]).
rule(5,"отоларингология","ангина",[4,5,18,19]).
rule(6,"отоларингология","отит",[20]).
rule(7,"отоларингология","фарингит",[11,18,19,21]).
rule(8,"отоларингология","осложнённый фарингит",[4,6,11,18,19,21]).
rule(9,"отоларингология","ларингит",[6,11,18,19,21,22,23]).
rule(10,"отоларингология","ОРВИ",[4,5,7,11,14,16,17,19,22]).
rule(11,"гастроэнтерология","панкреатит",[4,7,8,9,10]).
rule(12,"гастроэнтерология","алхоргидрия",[10,24]).
rule(13,"гастроэнтерология","острый гастрит",[4,9,24,25]).
rule(14,"гастроэнтерология","атония кишечника",[9,26]).
rule(15,"гастроэнтерология","пищевое отравление",[4,9,24,27]).
rule(16,"венерическая болезнь","гонорея",[28,29]).
rule(17,"венерическая болезнь","отсроконечные кондиломы",[6,29,30,31]).
rule(18,"венерическая болезнь","лобковый педикулёз",[32,33]).
rule(19,"венерическая болезнь","первичный сифилис",[34]).
rule(20,"венерическая болезнь","ВИЧ-инфекция",[4,9,18,21]).
rule(21,"венерическая болезнь","хламидиоз",[29,35]).
rule(22,"венерическая болезнь","генитальный герпис",[33,36]).
rule(23,"венерическая болезнь","кандидоз",[29,30,33,37]).
 
вероятность () :-
 
 
discover ([4,14,15,16]),
if (fact(4,"Да"),fact(14,"Да"),fact(15,"Да"),fact(16,"Нет")) then  write("Вероятность  болезни гайморит - 75%"),assert(prob(1,75,"гайморит")),nl elseif (fact(4,"Да"),fact(14,"Да"),fact(15,"Нет"),fact(16,"Нет"))  then  write("Вероятность  болезни гайморит - 50%"),assert(prob(1,50,"гайморит")),nl end if,
%if prob(1,100,_) then recognition("БОЛЕЗНИ ВЕК, СЛЕЗНЫХ ПУТЕЙ И ГЛАЗНИЦЫ") end if.
itog(N):- prob(N,V,S),write("Вероятность ",S," - ",V," %"),nl.
 
 
recognition(X):- rule(N,X,Y,Z), discover(Z),!, write(" о боже мой! Да у вас ", X, " - ", Y, " (100%)"), nl, recognition(Y).
 recognition("отоларингология"):- write("сорян, с этим не ко мне."), nl,!.
 recognition("гастроэнтерология"):- write("сорян, с этим не ко мне."), nl,!.
 recognition("болезнь"):- write("сорян, с этим не ко мне."), nl,!.
recognition(_).
 
discover ([X|Y]):- ask(X), discover(Y).
discover([]).
 
complete(X):- write(" Y/N"), nl, Y=readline(), ((Y="y";Y="Y"), assert(fact(X, "Y")),!; assert(fact(X,"N")),!,fail).
 
run() :- init(),
write("Добро пожаловать на экспресс-тест определения вашего заболевания. Ответьте на ряд вопросов анамнеза, пожалуйста: "),
recognition("болезнь"),
_=readchar().
 
end implement main
 
goal
    mainExe::run(main::run).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2016, 21:37
Ответы с готовыми решениями:

Ошибка: "Syntax error in clause body, predicate call expected"
Начал только изучать, выкидывает ошибку "Syntax error in clause body, predicate call expected". В...

Ошибка "project1.lpr(35,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found"
type tarray= array of integer; var a:tarray; m,s,k:integer; procedure...

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием "Syntax error, "BEGIN" expected but "end of...

1
Фрилансер
3681 / 2052 / 565
Регистрация: 31.05.2009
Сообщений: 6,684
08.02.2016, 03:42 2
Неучсан, Вам так принципиально получить ответ именно от Грымзик?
Почему бы не создать отдельную тему?

На будущее - маленькая подсказка: значительно быстрее можно получить ответ, если указать не только сообщение об ошибке, но и номер стрроки, на которой она происходит..

Ошибка у Вас выскакивает в строке 89 из-за того, что Вы закомментировали строку 88 вместе с точкой, завершающей предикат. Или раскомментируйте строку 88, или поставьте точку вместо запятой в конце строки 87
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2016, 03:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure...

Ошибка: project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found
project1.lpr(1,1) Fatal: Syntax error, "BEGIN" expected but "end of file" found выдает эту ошибку...

Ошибка: Fatal: Syntax error, ";" expected but "identifier Mas" found.
Где здесь синтаксическая ошибка( "mas:=A2;" )? procedure TForm1.Button1Click(Sender: TObject); ...

Ошибка "Fatal: Syntax error, ";" expected but "." found"
звучит задание: создай программу, в которой можно преподнести введенное пользователем число к...

Ошибка Fatal: Syntax error, ";" expected but "is" found
Не могу нигде прописать часть кода вот эт type tproc = procedure is...

Ошибка: Syntax error, ";" expected but "BEGIN" found
Ошибка тут в строке с сообщением в комментарие, строка 40. Не понимаю почему. procedure...


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

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

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