Реферат: Семантическая сеть

have(worker,fio).

have(worker,ceh).

have(manager,fio).

have(manager,tab_nomer).

have(h_manager,high_level).

have(m_manager,mid_level).

have(l_manager,low_level).

have(dir,account).

have(cons,n_cons_byro).

have(tech,n_office).

have(nach_ceh,n_ceha).

have(nach_otd,n_otdela).

have(master,n_uchastka).

have(brig,n_brigada).

have(X,Y):- is(X,Q),

have(Q,Y).

raspred(h_manager,profit).

raspred(X,proiz_zad):- podbir(m_manager,X),

is(X,manager).

raspred(X,Y):- is(X,Z),raspred(Z,Y).

opredel(h_manager,target).

opredel(X,Y):- is(X,Z),opredel(Z,Y).

podbir(h_manager,m_manager).

podbir(X,l_manager):- podbir(h_manager,X),

is(X,manager).

podbir(X,Y):- is(X,Z),podbir(Z,Y).

podbir(X,Y):- is(Y,Z),podbir(X,Z).

planir(X,work):- opredel(Z,target),

podbir(Z,X),Z=h_manager.