База данных о врачах и пациентах

@kiss_of_life · Регистрация: 01.11.2012

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

Уважаемые форумчане, это моя первая и последняя задача на этом языке. 150-летняя преподавательница даже не собирается нам давать малейшие объяснения (похоже она его сама не помнит). Задача:

Отношения-факты:
<Карта пациента>(<номер>,<фио>,<адрес>,<телефон>,<возраст>,<место работы>)
<Врач>(<код врача>,<фио>,<специализация>)
<Прием>(<код врача>,<номер карты пациента>,<диагноз>,<назначения>,<больничный да\нет>)

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

Prolog

domains
 i=integer
 s=string
 
predicates
    card(i,s,s,s,i,s)
    doctor(i,s,s)
    visit(i,i,s,s,s,s)
    
clauses
    card(1, Demidenko_OV, Stavropolskaya_123, "28636", 19, KFC).
    card(2, Ivanenko_AA, Ugorskaya_48, "33589", 20, Intel).
    card(3, Kyznetsenko_PB, Omskaya_66, "24565", 45, MacDonalds).
    card(4, Kremnenko_AV, Murmanskaya_23, "40186", 68, BeeFree).
    
    doctor(21, Smirnoff_VV, terapevt).
    doctor(22, Abaeff_AT, khirurg).
    
    visit(21, 1, "2 marta" , angina, Azitromicin, YES).
    visit(21, 2, "4 marta", faringit, Amosin_i_operatsia, YES).
    visit(22, 2, "5 marta", faringit, poloskanie, YES).
    visit(22, 3, "5 marta", lishnyaya_noga, otrezat_nogu, NO).
    visit(22, 4, "1 aprelya", abscess, operatsia, NO).

Совершенно не понимаю, как писать отношения-правила. Подскажите, пожалуйста, что мне делать дальше и что, может быть, я сейчас делаю не так? Буду признательна за помощь

@Грымзик · 18.04.2013, 22:29

Возьмите все строки в фактах в кавычки. С заглавной буквы переменные начинаются. Раз время надо считать, то его стоит в виде структур, а не строк записывать
Диагнозы за все время

Prolog

domains
 i=integer
 s=string
 date=d(integer,integer).
 slist=string*
 
predicates
    nondeterm card(i,s,s,s,i,s)
    nondeterm doctor(i,s,s)
    nondeterm visit(i,i,date,s,s,s)
    nondeterm member(s,slist).
    nondeterm diagnoz(s).
    vse_diagnozi.
    write_d(slist).
    
    
clauses
    card(1, "Demidenko_OV", "Stavropolskaya_123", "28636", 19, "KFC").
    
    doctor(21, "Smirnoff_VV", "terapevt").
    
    visit(21, 1, d(2,3) , "angina", "Azitromicin", "YES").
   
    member(X,[X|_]).
    member(X,[_|Tail]):-member(X,Tail).
    
    diagnoz(D):-visit(_,_,_,D,_,_).
    
    vse_diagnozi:-findall(D,diagnoz(D),List), write_d(List).
    
    %spicialnii vivod, chotbi ne bilo dublikatov
    write_d([]).
    write_d([H|Tail]):-not(member(H,Tail)),!,write(H),nl,write_d(Tail).
    write_d([_|Tail]):-write_d(Tail).
 
goal
    vse_diagnozi.

Остальные попробуйте самостоятельно сделать, уже есть от чего оттолкнуться.

@kiss_of_life · 04.05.2013, 13:46 **[ТС]**

Спасибо большое! Подскажите, пожалуйста, если мне нужно вывести, каких врачей прошел пациент за указанный период, то как мне связать врача и код, ведь в visit указывается код врача, а в doctor он только расшифровывается.

Prolog

1	vrachi(V):-visit(V,_,_,_,_,_)...

как-то так, но как?

И еще, объясните, пожалуйста, что значит специальный вывод, чтобы не было дубликатов?

	04.05.2013, 13:46