资源描述：
《定义其他的家庭关系,如祖孙、舅甥等。请编写一个程序刻.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1.家族关系。以姐妹、父母儿子关系为基本关系。定义其他的家庭关系，如祖孙、舅甥等。请编写一个程序刻画《红楼梦》中的家族关系。定义关系：male(string)：male(X)--〉X是男的female(string)：female(X)--〉X是女的parent_of(string,string)：parent_of(X,Y)--〉X是Y的父母sister_of(string,string)：sister_of(X,Y)--〉X是Y姐妹father(string,string)：father(X,Y)--〉X是Y的父亲m
2、other(string,string)：mother(X,Y)--〉X是Y的母亲grandfather(string,string)：grandfather(X,Y)--〉X是Y的祖父offspring(string,string)：offspring(X,Y)--〉X是Y的祖先brother(string,string)：brother(X,Y)--〉X是Y的兄弟uncle(string,string)：uncle(X,Y)--〉X是Y的叔叔aunt(string,string):aunt(X,Y)--〉X是Y的姑姑
3、1.3源程序：predicates/*1.家族关系*/同定义关系（省略）clausesmale("jiayan").male("jiadaihua").male("jiadaishan").male("jiajing").male("jiazhen").male("jiayuan").male("jiadaison").male("jiashe").male("jiazhen").male("jialian").male("jiazhu").male("jiazong").male("jiabaoyu").male("j
4、iahuan").female("youshi").female("jiarong").female("shitaijun").female("xingfuren").female("wangxifeng").female("wangfuren").female("liwan").female("baochai").female("daiyu").female("qiaojie").female("jiamin").female("jialan").parent_of("jiamin","daiyu").parent_o
5、f("jiayan","jiadaihua").parent_of("jiadaihua","jiajing").parent_of("jiajing","jiazhen").parent_of("jiazhen","jiarong").parent_of("youshi","jiarong").parent_of("jiashe","jialian").parent_of("jialian","qiaojie").parent_of("jiayuan","jiadaishan").parent_of("jiadaish
6、an","jiashe").parent_of("jiadaishan","jiazhen").parent_of("jiadaishan","jiamin").parent_of("shitaijun","jiashe").parent_of("shitaijun","jiazhen").parent_of("shitaijun","jiamin").parent_of("jiazhen","jiazhu").parent_of("jiazhen","jiabaoyu").parent_of("wangfuren","
7、jiazhu").parent_of("wangfuren","jiabaoyu").parent_of("jiashe","jiazong").parent_of("jiazhen","jiahuan").parent_of("jiazhu","jialan").sister_of("jiamin","jiashe").sister_of("jiamin","jiazhen").father(X,Y):-male(X),!,parent_of(X,Y).mother(X,Y):-parent_of(X,Y),femal
8、e(X).grandfather(X,Y):-father(X,Z),father(Z,Y).offspring(X,Y):-father(X,Y).offspring(X,Y):-father(X,Z),offspring(Z,Y).第8页共8页brother(X,Y):-father(Z,X),father(Z,
