如何撰寫一個prolog程式

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)].

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

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.

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