fork download 
  1. database
  2.   yes(string)
  3.   no(string)
  4.   maybe(string)
  5.  
  6. predicates
  7.   repeat
  8.   run
  9.   make_selection(string, integer, integer)
  10.   continue_selection(integer, string, integer)
  11.   tel(string,integer)
  12.   is(string)
  13.   positive(string)
  14.   negative(string)
  15.   xpositive(string)
  16.   xnegative(string)
  17.   ask(string,char)
  18.   remember(string,char)
  19.   delete_all
  20. clauses
  21.   repeat.
  22.   repeat:-repeat.
  23. %-----------------------------------------------------------------------------
  24. % описываем технические характеристики сотового телефона
  25.     tel("Samsung E1070", 890):- positive("цветной дисплей"),positive("емкий аккумулятор"),
  26.            negative("имеет камеру"),
  27.                      negative("имеет FM-радио"),
  28.            negative("имеет Mp3-плеер"),
  29.            is("только для связи").
  30.  
  31.   tel("Nokia 1202", 1000):- positive("цветной дисплей"),positive("емкий аккумулятор"),
  32.                      negative("имеет камеру"),
  33.                      negative("имеет FM-радио"),
  34.            negative("имеет Mp3-плеер"),
  35.            is("только для связи").
  36.  
  37.   tel("Nokia 1208", 1190):-positive("цветной дисплей"),positive("емкий аккумулятор"),
  38.            negative("имеет камеру"),
  39.                      negative("имеет FM-радио"),
  40.            negative("имеет Mp3-плеер"),
  41.            is("только для связи").
  42.  
  43.  
  44.  
  45.   tel("Nokia 2630", 2490):-positive("цветной дисплей"),positive("емкий аккумулятор"),
  46.           negative ("имеет камеру"),
  47.                      positive ("имеет FM-радио"),
  48.            negative("имеет Mp3-плеер"),
  49.            is("только для связи"), is("развлечения и музыка").
  50.  
  51.   tel("LG KP105", 1490):- positive("цветной дисплей"),positive("емкий аккумулятор"),
  52.            negative ("имеет камеру"),
  53.                      positive ("имеет FM-радио"),
  54.            negative("имеет Mp3-плеер"),
  55.            is("только для связи").
  56.  
  57.   tel("LG GB110", 2550):- positive("цветной дисплей"),positive("емкий аккумулятор"),
  58.            negative ("имеет камеру"),
  59.                      positive ("имеет FM-радио"),
  60.           negative ("имеет Mp3-плеер"),
  61.            is("только для связи"), is("развлечения и музыка").
  62.  
  63.  
  64.   tel("Nokia E52", 12990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  65.            positive ("имеет камеру"),
  66.                      positive ("имеет FM-радио"),
  67.            positive ("имеет флэш-карту"),
  68.            negative("имеет навигацию"),
  69.            negative("имеет Mp3-плеер"),
  70.            is("мобильный офис").
  71.  
  72.   tel("Nokia E66", 11890):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  73.            positive ("имеет камеру"),
  74.                      positive ("имеет FM-радио"),
  75.            positive ("имеет флэш-карту"),
  76.            negative ("имеет навигацию"),
  77.            negative("имеет Mp3-плеер"),
  78.            is("мобильный офис"),  is("помощник в путешествиях").
  79.  
  80.  
  81.   tel("Nokia E63", 13500):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  82.            positive ("имеет камеру"),
  83.                      positive ("имеет FM-радио"),
  84.            positive ("имеет флэш-карту"),
  85.            negative ("имеет навигацию"),
  86.            negative("имеет Mp3-плеер"),
  87.            is("мобильный офис"),  is("помощник в путешествиях").
  88.  
  89.   tel("Nokia 5310", 7990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  90.            positive ("имеет камеру"),
  91.                      positive ("имеет FM-радио"),
  92.            positive ("имеет флэш-карту"),
  93.            positive ("имеет Mp3-плеер"),
  94.            negative("сенсорный дисплей"),
  95.            positive ("имеет дополнительные клавиши управления Mp3-плеером"),
  96.            is("развлечения и музыка").
  97.  
  98.   tel("Nokia 5530", 7780):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  99.            positive ("имеет камеру"),
  100.                      positive ("имеет FM-радио"),
  101.            positive ("имеет флэш-карту"),
  102.            positive ("имеет Mp3-плеер"),
  103.            negative ("сенсорный дисплей"),
  104.            positive ("имеет дополнительные клавиши управления Mp3-плеером"),
  105.            is("развлечения и музыка").
  106.  
  107.   tel("Nokia 5800", 8890):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  108.            positive ("имеет камеру"),
  109.                      positive ("имеет FM-радио"),
  110.            positive ("имеет флэш-карту"),
  111.            positive ("имеет Mp3-плеер"),
  112.            negative ("сенсорный дисплей"),
  113.            positive ("имеет дополнительные клавиши управления Mp3-плеером"),
  114. is("развлечения и музыка"), is("мобильный офис"),is ("помощник в путешествиях").
  115.  
  116.   tel("SonyEricsson W595", 8450):- positive("цветной дисплей"), negative ("емкий аккумулятор"),
  117.            positive ("имеет камеру"),
  118.                      positive ("имеет FM-радио"),
  119.            positive ("имеет флэш-карту"),
  120.            positive ("имеет Mp3-плеер"),
  121.            negative("сенсорный дисплей"),
  122.            negative ("имеет дополнительные клавиши управления Mp3-плеером"),
  123.            is("развлечения и музыка").
  124.  
  125.   tel("SonyEricsson W395", 7890):- positive("цветной дисплей"), negative ("емкий аккумулятор"),
  126.            positive ("имеет камеру"),
  127.                      positive ("имеет FM-радио"),
  128.            positive ("имеет флэш-карту"),
  129.            positive ("имеет Mp3-плеер"),
  130.            negative("сенсорный дисплей"),
  131.            negative ("имеет дополнительные клавиши управления Mp3-плеером"),
  132.            is("развлечения и музыка").
  133.  
  134.   tel("Nokia N86", 24790):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  135.            positive ("имеет камеру"),
  136.                      positive ("имеет FM-радио"),
  137.            positive ("имеет флэш-карту"),
  138.            positive ("имеет навигацию"),
  139.            positive ("имеет Mp3-плеер"),
  140.            negative ("имеет Wi-Fi"),
  141.            positive ("имеет дополнительную клавиатуру"),
  142.            is("помощник в путешествиях"), is("мобильный офис").
  143.  
  144.   tel("Nokia N97", 27990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
  145.            positive ("имеет камеру"),
  146.                      positive ("имеет FM-радио"),
  147.            positive ("имеет флэш-карту"),
  148.            positive ("имеет навигацию"),
  149.            positive ("имеет Mp3-плеер"),
  150.            negative ("имеет Wi-Fi"),
  151.            positive ("имеет дополнительную клавиатуру"),
  152. is("помощник в путешествиях"), is("мобильный офис"), is("развлечения и музыка").
  153.  
  154.   tel("Такой телефон еще не произведен!!!!", 0).
  155.  
  156. %-----------------------------------------------------------------------------
  157.   is("только для связи"):-positive("звонить и отправлять смс"),!.
  158.   is("мобильный офис"):- positive("смартфон"),!;
  159.                          negative("слушать музыку"),
  160.                          positive("звонить и отправлять смс").
  161.   is("развлечения и музыка"):- positive("слушать музыку"),!;
  162.                                positive("звонить и отправлять смс"),
  163.                                negative("смартфон").
  164.   is("помощник в путешествиях"):-positive("имеет GPS-навигацию").
  165. %-----------------------------------------------------------------------------
  166. % работа с динамической базой данных
  167.   positive(X):-xpositive(X),!; xnegative(X),!,fail; ask(X,'y').
  168.   negative(X):-xnegative(X),!; xpositive(X),!,fail; ask(X,'n').
  169.   ask(X,R):-write(X,"  ?  : "),readchar(Reply),write(Reply,"\n"),
  170.             remember(X,Reply),R=Reply.
  171. % проверка присутствия фактов в динамической базе данных
  172.   xpositive(X):-yes(X);maybe(X).
  173.   xnegative(X):-no(X);maybe(X).
  174. % запоминаем факт в динамической базе данных
  175.   remember(X,'y'):-asserta(yes(X)).
  176.   remember(X,'n'):-assertz(no(X)).
  177.   remember(X,'q'):-asserta(maybe(X)).
  178. % очищаем память от фактов динамической базы данных
  179. delete_all:-retract(yes(_)),delete_all.
  180. delete_all:-retract(no(_)),delete_all.
  181. delete_all:-retract(maybe(_)),delete_all.
  182. delete_all.
  183. %-----------------------------------------------------------------------------
  184. run:-delete_all,
  185.        %repeat,
  186.        write("На вопросы отвечать (y-да, n-нет, q-не знаю).\n"),     
  187.  
  188.     make_selection(X, A, CHOOSE),
  189.     continue_selection(CHOOSE, X, A),
  190.        write("Завершить работу программы (y/n): "),readchar(Z),
  191.        write(Z),nl,
  192.        Z='y', !.
  193.  
  194. make_selection(X, A, CHOOSE) :- tel(X,A), write("Ваш выбор: ",X," цена: ",A,"\n"),
  195.         write("Устраивает ли вас цена? \n1-да, данная модель меня устраивает\n2-нет, покажите модель по дешевле\n3-нет, покажите модель по дороже"),
  196.         readchar(CHOOSE).
  197.  
  198. continue_selection('1', X, A) :-  !, write("Ваш выбор: ",X," цена: ",A,"\n"), !.
  199. continue_selection('2', X, A) :-  !, tel(X, Z), Z < A, write("-->>", X, " - ", A).
  200. goal
  201.   makewindow(1,10,12," Экспертная система : СОТОВЫЕ ТЕЛЕФОНЫ ",0,0,25,80),
  202.   write("--------------------------------------------"),nl,
  203.   run.
Success #stdin #stdout 0.02s 6204KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/2TGqu
language:
Prolog (swi 7.6.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!