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
| domains
db_selector = es_base
next_question=q(ref,string,ref)
slist=string*
answer=a(ref,string,slist)
predicates
main
clauses
main:-
db_create(es_base,"d:\\ExpertSystemBase.dba",in_file),
chain_insertz(es_base,"questions",string,"Kompyuter vklyuchaetsya? ",Question1),
chain_insertz(es_base,"questions",string,"Izobrazenie vivoditsya na monitor? ",Question2),
chain_insertz(es_base,"questions",string,"Slishen zvukovoi signal? ",Question3),
chain_insertz(es_base,"questions",string,"Sistema raboatet nestabilno (chasto visnet, perezagruzaetsya, promadaet izborazenie)? ",Question4),
chain_insertz(es_base,"questions",string,"Slishen korotkii zvukovoi signal? ",Question5),
chain_insertz(es_base,"questions",string,"Vo vremya raboti proyavlyaetsya kakoi-libo deffekt\n(sistema stabilno rabotaet dolgoe vremay i deffect poyavlyaetsya nepredzkazuemo)? ",Question6),
chain_insertz(es_base,"questions",string,"Pri podache pitaniya slishen bil zvuk raskrutki zestkogo diska? ",Question7),
chain_insertz(es_base,"questions",string,"Bili slishni popitki raskrutki raskrutki zestkogo diska? ",Question8),
chain_insertz(es_base,"questions",string,"Bili slishni shelchki i nakopitel ne vishel v sostoyanie gotovnosti? ",Question9),
chain_insertz(es_base,"questions",string,"Bil slishen gormkii i nepriyatnii zvuk pri raskrutke zestkogo diska? ",Question10),
chain_insertz(es_base,"nextquestion",next_question,q(Question1,"yes",Question2),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question2,"yes",Question4),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question2,"no",Question3),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question3,"yes",Question5),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question4,"no",Question6),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question6,"no",Question7),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question7,"no",Question8),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question7,"yes",Question9),_),
chain_insertz(es_base,"nextquestion",next_question,q(Question9,"no",Question10),_),
chain_insertz(es_base,"answers",answer,a(Question1,"no",["Vozmoznie prichini: Zdes' mozhet byt' tri neispravnosti:","1. Blok pitanija.","2. Materinskaja plata.","3. Knopka vkljuchenija na perednej paneli korpusa.","Otkrojte blok pitanija i vnimatel'no osmotrite ego na nalichie neispravnyh jelementov:","vzdutye kondensatory, goretye rezistory, prozvonite testerom predohranitel' na vozmozhnost' obryva.","Prover'te svobodno li vrawaetsja kuler v bloke pitanija. Esli kuler ne vrawaetsja, to jeto skoree","vsego stalo prichinoj vyhoda iz stroja bloka pitanija.Proveriv blok pitanija i ubedivshis', chto on rabotaet,","prover'te knopku vkljuchenija."]),_),%Answer1
chain_insertz(es_base,"answers",answer,a(Question3,"no",["Vozmoznie prichini: Zdes' mozhet byt' neskol'ko neispravnyh detalej:","1. Blok pitanija","2. Materinskaja plata","3. Videokarta","4. operativnaja pamjat'","5. Central'nyj processor","Materinskuju platu i central'nyj processor proverit' mozhno tol'ko podstanovkoj zavedomo ispravnoj.","No mozhno vynut' processor, prochistit' wjotkoj soket, postavit' processor obratno - inogda pomogaet.","Jeto proishodit iz za okislenija kontaktov na samom processore."]),_),%Answer2
chain_insertz(es_base,"answers",answer,a(Question5,"no",["Vozmoznie prichini: Prichina mozhet byt' v neispravnosti videokarty ili operativnoj pamjati.","Neobhodimo prochistit' kontaktnuju gruppu s obeih storon na videokarte, operativnoj pamjati."]),_),%Answer3
chain_insertz(es_base,"answers",answer,a(Question5,"yes",["Vozmoznie prichini: Problema v videokarte (ubedites' v ispravnosti monitora).","Prochistit' prostoj stjorkoj kontaktnuju gruppu s obeih storon na videokarte, esli","ne pomozhet mozhno smelo menjat' videokartu ili otnesti v servisnyj centr."]),_),%Answer4
chain_insertz(es_base,"answers",answer,a(Question4,"yes",["Vozmoznie prichini: Neispravnosti mogut byt' sledujuwie:","1. Blok pitanija","2. Materinskaja plata","3. Operativnaja pamjat'","4. Videokarta","5. Central'nyj processor","So vremenem v bloke pitanija sadjatsja kondensatory i on stanovitsja ne v sostojanii vydavat' neobhodimuju","mownost' dlja normal'noj raboty komp'jutera. Neobhodimo zamenit' kondensatory v bloke pitanija.","S materinskoj platoj proishodit to zhe samoe. Snimite naljot na kontaktah operativnoj pamjati prostoj stjorkoj.","Prover'te programmoj Memtest na stabil'nuju rabotu OZU. Graficheskij processor videokarty prover'te na","temperaturnyj rezhim kakoj-nibud' programmoj, naprimer Everest. V sluchae vysokoj temperatury proverit' kuler:"," snjat' radiator i udalit' zasohshuju smazku spirtom, nanesti novuju smazku tonkim sloem i prikrepit' radiator na mesto.","Tozhe samoe sovetuju prodelat' i s central'nym processorom. "]),_),%Answer5
chain_insertz(es_base,"answers",answer,a(Question6,"yes",["Vozmoznie prichini: Neispravnosti mogut byt' sledujuwie:","1. Blok pitanija","2. Materinskaja plata","3. Operativnaja pamjat'","4. Videokarta","5. Central'nyj processor","So vremenem v bloke pitanija sadjatsja kondensatory i on stanovitsja ne v sostojanii vydavat' neobhodimuju","mownost' dlja normal'noj raboty komp'jutera. Neobhodimo zamenit' kondensatory v bloke pitanija.","S materinskoj platoj proishodit to zhe samoe. Snimite naljot na kontaktah operativnoj pamjati prostoj stjorkoj.","Prover'te programmoj Memtest na stabil'nuju rabotu OZU. Graficheskij processor videokarty prover'te na","temperaturnyj rezhim kakoj-nibud' programmoj, naprimer Everest. V sluchae vysokoj temperatury proverit' kuler:"," snjat' radiator i udalit' zasohshuju smazku spirtom, nanesti novuju smazku tonkim sloem i prikrepit' radiator na mesto.","Tozhe samoe sovetuju prodelat' i s central'nym processorom. Pravda, chtoby vyjavit' plavajuwij defekt, testirovat'","prihoditsja ochen' i ochen' dolgo. Inogda jeto zanimaet do neskol'kih dnej."]),_),%Answer6
chain_insertz(es_base,"answers",answer,a(Question8,"no",["Vozmoznie prichini NE VILI NAIDENNI!\n"]),_),%Answer7
chain_insertz(es_base,"answers",answer,a(Question9,"yes",["Vozmoznie prichini: upravlyayushii processor nakopitelya zavisaet iz-za nepravilnogo","schitivaniya nahodyashihsya na diskah sluzebnih program. Eti programmy mogut okazat'sja","razrushennymi kak iz-za kakih-libo sboev v rabote vinchestera (v tom chisle nekorrektnyh","popytok nizkourovnevogo formatirovanija), tak i iz-za iznosa poverhnostej sluzhebnyh cilindrov."]),_),%Answer8
chain_insertz(es_base,"answers",answer,a(Question10,"no",["Vozmoznie prichini NE BILI NAIDENNI!\n"]),_),%Answer9
chain_insertz(es_base,"answers",answer,a(Question10,"yes",["Vozmoznie prichini: polomka dvigatelya HDD, smeshenie diskov (ot udara), vihod golovok za predeli poverhnosti diska iz-za polomki ogranichitelei\n"]),_),%Answer10
db_close(es_base).
goal
main. |