Question

我有一个prolog程序，其中包含课程模块，学生和他们参加的模块的详细信息。该计划如下：

module(42, mod_details('Vocal Skills', 'Dawn Upshaw')).
module(53, mod_details('Physics', 'Dave Jones')).
module(64, mod_details('Maths', 'John Richards')).
module(75, mod_details('History', 'El Capitan')).

student('Bruce Wayne', student_det('100', '2')).
student('Clarke Kent', student_det('200', '3')).
student('Scott Summers', student_det('300', '1')).
student('Richard Kimble', student_det('400', '2')).

attends(100, 42).
attends(300, 42).
attends(400, 42).
attends(200, 53).
attends(300, 53).
attends(300, 64).
attends(100, 75).
attends(200, 75).
attends(300, 75).
attends(400, 75).

print_studentnos_for_modno(ModNo):-
        attends(SNo, ModNo),
    write(SNo).

print_studentnos_for_modtitle(ModTitle):-
    module(ModNo, mod_details(ModTitle, Lect)),
    attends(SNo, ModNo),
    write(SNo).

is_a_student(StudentName):-
    student(StudentName, student_det(SNo, Year)).

print_students_lectured_by(Lect):-
    module(ModNo, mod_details(ModTitle, Lect)),
    attends(SNo, ModNo),
    student(StudentName, student_det(SNo, Year)),   
    write(StudentName), write(' '),
    write(SNo).

最后一个条款print_students_lectured_by（Lect）应该打印出学生的姓名，然后是学生编号。但是，它只给出了错误的答案。

我对此非常陌生，所以对于如何修改我的条款的任何建议表示赞赏。

非常感谢安迪

Answer 1

student('Bruce Wayne', student_det('100', '2'))

应该是

student('Bruce Wayne', student_det(100, 2))

和其他学生一样。

注意：我自己没试过这个

使用多个子句 - Prolog

1 个答案: