home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / blckmail / bm08 / family2.pro < prev    next >
Text File  |  1994-02-20  |  1KB  |  42 lines
  1. /* Beispielprogramm 2 für den Prologkurs in Blackmail7 */
  2. /* Die Familienshow */
  3.  
  4. predicates
  5.  
  6. vater_von(symbol,symbol)
  7. mutter_von(symbol, symbol)
  8. frau_von(symbol,symbol)
  9. mann_von(symbol, symbol)
  10. kind_von(symbol,symbol)
  11. verheiratet(symbol,symbol)
  12. kindprüfen
  13.  
  14.  
  15. clauses
  16.  
  17. vater_von(hans, nina).
  18. vater_von(paul, jens).
  19. vater_von(thomas, claudia).
  20. vater_von(thomas, miriam).
  21. vater_von(thomas, stefan).
  22. frau_von(lisa, hans).
  23. frau_von(inge, paul).
  24. frau_von(kerstin, thomas).
  25.  
  26. mutter_von(Frau,Kind) :- frau_von(Frau,Mann), vater_von(Mann, Kind).
  27. mann_von(Mann, Frau) :- frau_von(Mann, Frau).
  28. kind_von(Kind, Mann) :- vater_von(Mann, Kind).
  29. kind_von(Kind, Frau) :- mutter_von(Frau, Kind).
  30.  
  31. verheiratet(Mensch1,Mensch2) :- frau_von(Mensch1, Mensch2).
  32. verheiratet(Mensch1,Mensch2) :- mann_von(Mensch1, Mensch2).          
  33.  
  34.  
  35. kindprüfen :- write("Gib einen Namen ein: "), nl,
  36.               readln(Name),
  37.               kind_von(Name,_),
  38.               write("Dieses Kind nimmt teil !").
  39. kindprüfen :- write("Dieses Kind nimmt nicht teil !").          
  40.  
  41.  
  42.