/* T”rzsfejl”d‚s */ DOMAINS nev = string ido = integer DATABASE /* Az adatbázisban tárolt tények*/ eloleny(nev,ido,ido,nev) /* l”l‚ny neve, kialakul sa, kihal sa, k”zvetlen ”se */ /* kinek, mit */ PREDICATES filebeolvasas kozvetlen_ose(nev,nev) /* K”zvetlen ”se melyik-melyiknek*/ ose(nev,nev) /* ™se melyik-melyiknek */ nincsma(nev) /* Nincs ma ‚l” lesz rmazott */ vanma(nev) /* Van-e ma ‚l‹ lesz rmazottja */ program CLAUSES filebeolvasas if existfile("adatok.dba") and consult("adatok.dba") and nl. kozvetlen_ose(X,Y) if eloleny(Y,_,_,X). ose(X,Y) if kozvetlen_ose(X,Y) or kozvetlen_ose(C,Y) and ose(X,C). nincsma(X) if eloleny(X,_,_,_) and not(vanma(X)). vanma(X) if eloleny(X,_,0,_) or eloleny(Y,_,0,_) and ose(X,Y). program if retractall(eloleny(_,_,_,_)) and filebeolvasas and write("A kovetkezo fajoknak nincs ma elo leszarmazottja:") and nl and nincsma(Ki) and write(Ki) and nl and Fail. GOAL clearwindow and program.