Кодировка при использовании внешней БД[turbo prolog]
23.04.2011, 16:45. Показов 3022. Ответов 1
Есть текстовый файл с фактами. Они на русском языке. В программе они отображаются абракадаброй.
keyrus используется.
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
| DOMAINS
s=string
i=integer
DATABASE
vopros(i,s,i,i)
PREDICATES
start
atr(i,i)
nachalo
per(char)
per1(char,i,i)
qwe
qwe1(i,i)
proverka(i)
CLAUSES
atr(S,C):-scr_attr(S,0,C),scr_attr(S,1,C),scr_attr(S,2,C),
scr_attr(S,3,C),scr_attr(S,4,C),scr_attr(S,5,C),
scr_attr(S,6,C),scr_attr(S,7,C),scr_attr(S,8,C).
qwe:-readchar(C),per(C).
per(C):-char_int(C,I),I=27,!.
per(C):-char_int(C,I),I=72,cursor(X,Y),X=2,qwe.
per(C):-char_int(C,I),I=72,cursor(X,Y),atr(X,7),X1=X-1,cursor(X1,Y),atr(X1,5),qwe.
per(C):-char_int(C,I),I=80,cursor(X,Y),X=3,qwe.
per(C):-char_int(C,I),I=80,cursor(X,Y),X1=X+1,atr(X,7),cursor(X1,Y),atr(X1,5),qwe.
per(C):-char_int(C,I),I=13,Cursor(X,Y),X=2,proverka(1).
per(C):-char_int(C,I),I=13,Cursor(X,Y),X=3,!.
per(C):-qwe.
proverka(Q):-clearwindow,cursor(0,0),vopros(Q,S,A,B),write(S),
A=0,readchar(_),start.
proverka(Q):-clearwindow,cursor(0,0),vopros(Q,S,A,B),write(S),
B=0,readchar(_),start.
proverka(Q):-clearwindow,cursor(0,0),vopros(Q,S,A,B),write(S),
cursor(2,0), write("„*"),cursor(3,0),
write("ЌҐв"),cursor(2,0),atr(2,5),qwe1(A,B).
qwe1(A,B):-readchar(C),per1(C,A,B).
per1(C,A,B):-char_int(C,I),I=27,!.
per1(C,A,B):-char_int(C,I),I=72,cursor(X,Y),X=2,qwe1(A,B).
per1(C,A,B):-char_int(C,I),I=72,cursor(X,Y),atr(X,7),X1=X-1,cursor(X1,Y),atr(X1,5),qwe1(A,B).
per1(C,A,B):-char_int(C,I),I=80,cursor(X,Y),X=3,qwe1(A,B).
per1(C,A,B):-char_int(C,I),I=80,cursor(X,Y),X1=X+1,atr(X,7),cursor(X1,Y),atr(X1,5),qwe1(A,B).
per1(C,A,B):-char_int(C,I),I=13,Cursor(X,Y),X=2,proverka(A).
per1(C,A,B):-char_int(C,I),I=13,Cursor(X,Y),X=3,proverka(B).
per1(C,A,B):-qwe1(A,B).
start:-existfile("prolog.txt"), consult("prolog.txt"),nachalo.
nachalo:-makewindow(1,7,7,"„Ё*Ј*®§",0,0,25,80),cursor(0,0),write("Ќ*з*вм вҐбвЁа®ў**ЁҐ?"),
cursor(2,0),write("„*"),cursor(3,0),write("ЌҐв"),cursor(2,0),atr(2,5),qwe.
GOAL
start. |
|
Подключаемая база prolog.txt:
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
| vopros(1,"Ваш ребенок старше 12 лет?",2,3)
vopros(2,"Поведение ребенка изменилось совсем недавно: он вдруг стал непослушным, замкнутым,с разрушительными тенденциями",4,5)
vopros(3,"Проблемы поведения связаны с учебой или пребыванием в школе?",6,7)
vopros(4,"Внезапные перемены в поведении маленьких детей почти всегда вызываются временным ухудшением настроения или семейными событиями. Непослушание, равно как и печать и плохое настроение, часто может быть скрытой мольбой о любви и проявлении повышенного внимания",0,0)
vopros(5,"Длительные нарушения поведения у маленьких детей могут быть следствием характерологических особенностей, неблагоприятной домашней обстановки, скуки, недостаточности интереса.",0,0)
vopros(6,"Трудности вашего ребенка связаны главным образом с учебой?",8,9)
vopros(7,"Ваш ребенок недавно стал агрессивным, разрушительным,непослушным?",10,11)
vopros(8,"Ваш ребенок всегда хуже учился по сравнению со сверстниками?",12,13)
vopros(9,"Ребенок стал неохотно ходить в школу?",14,15)
vopros(10,"Поведение ребенка изменилось после каких-то событий в семье:рождение еще одного ребенка или развода родителей?",16,17)
vopros(11,"Возможно ваш ребенок курит,выпивает,принимает наркотики или нюхает химические вещества?",18,19)
vopros(12,"Замедленное развитие интелекта может просто означать, что ваш ребенок несколько запаздывает с приобретением определенных интелектуальных навыков, но с годами он скорее догонит своих сверстников",0,0)
vopros(13,"У ребенка возникают трудности при изучении одного или двух предметов?",20,21)
vopros(14,"Ваш ребенок недавно пошел в школу?",22,23)
vopros(15,"Учителя жалуются на поведение ребенка в школе?",24,25)
vopros(16,"Чувство незащищенности и несчастья могут вызывать подобное поведение у некоторых детей",0,0)
vopros(17,"Трудности поведения,возникающие без видимых причин,иногда объясняются неизвестными вам школьными неприятностями.Вашего ребенка могут также беспокоить какие-то будущие события, он можетощущать напряженность в семье или испытывать скуку",0,0)
vopros(18,"Беспокойное поведение ребенка связано с едой?",26,27)
vopros(19,"Если ребенок продолжает огорчать вас своим поведением, обратитесь к врачу.",0,0)
vopros(20,"Недостаточные способности к некоторым предметам или это результат неправильного поведения.",0,0)
vopros(21,"Успеваемость ребенка ухудшилась за последние несколько недель?",28,9)
vopros(22,"Боязнь школы очень распространена у детей, особенно если ребенок не привык долго находиться вне дома и семьи.",0,0)
vopros(23,"Ваш ребенок отказывался ходить в школу или прогуливал уроки?",29,30)
vopros(24,"Не исключено, что слишком простая программа обучения вызывает у ребенка скуку или,напротив, она для него чересчур сложна. Плохое поведение может быть следствием эмоциональных изменений в подростковом возрасте",0,0)
vopros(25,"Школьные трудности,которые не рассмотрены в схеме, следует обсудить с учителями.",0,0)
vopros(26,"Капризы по поводу еды встречаются часто, особенно у девочек - подростков. Об этом не следует беспокоиться,если только ваш ребенок чрезмерно худым или полным.",0,0)
vopros(27,"Вас беспокоит, что у вашего ребенка мало друзей и он большую часть свободного времени проводит в одиночестве?",31,32)
vopros(28,"Это случилось после крупных неприятностей в доме?",33,34)
vopros(29,"Отказ от посещения школы-признак серьезного нарушения. Он может быть вызван обстановкой в школе, несоответствием школы индивидуальным подребностям ребенка, или же дурным влиянием школьных приятелей. Иногда причиной отказа от посещения школы может быть неблагополучная домашняя ситуация.",0,0)
vopros(30,"неприязнь к школе может возникать в частности из-за трудности с учебой или боязни учителей или учеников.",0,0)
vopros(31,"Природная застенчивость или склонность к уединению могут быть чертами личности вашего ребенка, и они не изменятся внезапно с началом подросткового периода.",0,0)
vopros(32,"Вас беспокоти враждебность,непослушание ребенка и или его невнимание к вам?",35,36)
vopros(33,"Эмоциональная неустойчивость почти всегда влияет на успеваемость ребенка.",0,0)
vopros(34,"Внезапное ухудшение успеваемости, когда нет причин для особого беспокойства, может объясняться болезнью, либо какими-нибудь увлечениями или неприятностями.",0,0)
vopros(35,"Ваши разногласия возникают чаще всего по поводу одежды, внешнего мира и или манеры общения?",37,38)
vopros(36,"Если вы не можете поставить диагноз по схеме, обратитесь к врачу.",0,0)
vopros(37,"Большинству подростков важно производить такое же впечатление, как их сверстники.",0,0)
vopros(38,"Непослушание-неотъемлемая черта подростков, который становится независимой личностью. Родители должны примириться с тем, что ребенок с возрастом перестает их слушаться",0,0) |
|
0
|