Prolog 人工智能语言中文论坛---打造优质Prolog学习交流园地

一个供Prolog爱好者学习与交流的地方


您没有登录。 请登录注册

如何撰寫一個prolog程式

浏览上一个主题 浏览下一个主题 向下  留言 [第1页/共1页]

1 如何撰寫一個prolog程式 于 周二 十一月 20, 2012 5:57 pm

family(
person( tom, fox, date(7,may,1960), works(bbc, 15200)),
person( ann, fox, date(9,may,1961), unemployed),
[person( pat, fox, date(5,may,1983), unemployed),
person( jim, fox, date(5,may,1983), unemployed)].

十個家庭,每格家庭都有兩個小孩,哪對夫婦有工作小孩沒工作?~ 小孩的年齡分別是幾歲.?

查阅用户资料

2 回复: 如何撰寫一個prolog程式 于 周三 十一月 21, 2012 7:15 am

Jessicaluin 写道::family(
person( tom, fox, date(7,may,1960), works(bbc, 15200)),
person( ann, fox, date(9,may,1961), unemployed),
[person( pat, fox, date(5,may,1983), unemployed),
person( jim, fox, date(5,may,1983), unemployed)].

十個家庭,每格家庭都有兩個小孩,哪對夫婦有工作小孩沒工作?~ 小孩的年齡分別是幾歲.?


代码:
q :- family(person(N1, N2, _, _), person(N3, N4, _, _),[person(N5, N6, date(D1, M1, Y1), unemployed), person(N7, N8, date(D2, M2, Y2), unemployed)]),
    write(N1), write(' '), write(N2), write(' & '), write(N3), write(' '), write(N4), nl,
    write(N5), write(' '), write(N6), write(': '), A1 is 2012 - Y1, write(A1), nl,
    write(N7), write(' '), write(N8), write(': '), A2 is 2012 - Y2, write(A2), nl, false.

如果写的不是完全是你想要的只要做相应的修改即可。

查阅用户资料 http://prolog.longluntan.net

浏览上一个主题 浏览下一个主题 返回页首  留言 [第1页/共1页]

您在这个论坛的权限:
不能在这个论坛回复主题