Aufgabe 5 / Lösungsvorschläge

ist_ein(spatz,vogel).
ist_ein(strauss,vogel).
ist_ein(vogel,tier).
ist_ein(hai,fisch).
ist_ein(lachs,fisch).
ist_ein(fisch,tier).
ist_ein(tier,lebewesen).
ist_ein(pflanze,lebewesen).
merkmal(lebewesen,waechst).
merkmal(tier,atmet).
merkmal(tier,hat_haut).

eigenschaft(B,E):-
    merkmal(B,E).

eigenschaft(B,E):-
    unterbegriff(B,B1),
    eigenschaft(B1,E),
    not(konflikt(B,E)).

semnetz:-
   write('Willkommen im    semantischen Netz. Um welchen
   Begriff geht es?'),
   nl,
   read(Input),
   findall(E,eigenschaft(Input,E),Liste),
   write('Dieser Begriff weist die    folgenden Eigenschaften auf'),
   nl,
   write(Liste).
merkmal(vogel,kann_fliegen).
merkmal(vogel,hat_federn).
merkmal(fisch,kann_schwimmen).
merkmal(fisch,hat_schuppen).
merkmal(spatz,ist_braun).
merkmal(strauss,ist_schnell).
merkmal(strauss,kann_nicht_fliegen).
merkmal(hai,ist_gefaehrlich).
merkmal(lachs,ist_rosa).
konflikt(strrauss,kann_fliegen)