人工智能实验指导书 语言.docVIP

第 PAGE \* Arabic 5 页 人工智能技术基础 实验指导书 人工智能课程组编写 北京交通大学电子信息工程学院 2015年4月 实验一 PROLOG语言编程练习 1 目的与要求 实验目的： 加强学生对逻辑程序运行机能的理解，使学生掌握PROLOG语言的特点、熟悉其编程环境，同时为后面的人工智能程序设计做好准备。 实验要求： （1）程序自选，但必须是描述某种逻辑关系的小程序。 （2）跟踪程序的运行过程，理解逻辑程序的特点。 （3）对原程序可作适当修改，以便熟悉程序的编辑、编译和调试过程。 2 实验内容或题目 实验题目：PROLOG语言编程练习 实验内容： 在Turbo PROLOG或Visual Prolog集成环境下调试运行简单的PROLOG程序，如描述亲属关系的PROLOG程序或其他小型演绎数据库程序等。 实验步骤与源程序 实验步骤： 启动Windows操作环境。 下载、安装Turbo PROLOG，了解它的运行模式及功能。 打开文件目录，执行prolog应用程序，启动Turbo prolog，并按空格键(SPACE)进入集成开发环境。 选择Setup项，打开下拉菜单，选择Directories项，进行工作目录修改，按Esc键退出，选择Save Configuration项，保存修改。 选择Files项，打开下拉菜单，选择New file项，进入源程序输入和编辑，或选择Load项，选择要打开的示例程序，再选择Edit项，可以进行编辑源程序。 编辑之后，可以选择Run项，执行程序，可以在Dialog窗口进行询问，即外部目标的执行，查看程序运行结果，分析程序之功能。 仿前例，可以选择其他程序并运行，分析程序功能。 退出，选择Quit项，可以退出Turbo Prolog程序，返回到Windows环境。 源程序： 验证题1： domains d=integer predicates not_(D,D) and_(D,D,D) or_(D,D,D) xor(D,D,D) clauses not_(1,0). not_(0,1). and_(0,0,0). and_(0,1,0). and_(1,0,0). and_(1,1,1). or_(0,0,0). or_(0,1,1). or_(1,0,1). or_(1,1,1). xor(Input1,Input2,Output):- not_(Input1,N1),/*（1，0）*/ not_(Input2,N2),/*（0，1）*/ and_(Input1,N2,N3), and_(Input2,N1,N4), or_(N3,N4,Output). 验证题2： predicates student(integer,string,real) grade goal grade. clauses student(1,zhang,90.2). student(2,li,95.5). student(3,wang,96.4). grade:-write(Please input name:),readln(Name), student(_,Name,Score), nl,write(Name,grade is,Score). grade:-write(Sorry,the student cannot find!). 验证题3： domains n,f=integer predicates factorial(n,f) goal readint(I), factorial(I,F), write(I,!=,F). clauses factorial(1,1). factorial(N,Res):- N0, N1=N-1, factorial(N1,FacN1), Res=N*FacN1. 验证题4： domains s=symbol predicates p(s) p1(s) p2(s) p3(s) p4(s) p5(s,s) p11(s) p12(s) p31(s) goal p(X),write(the x is ,X). clauses p(a1):-p1(b),p2(c). p(a2):-p1(b),p3(d),p4(e). p(a3):-p1(b),p5(f,g). p1(b):-p11(b1),p12(b2). p3(d):-p31(d1). p2(c1). p4(e1). p5(f,g). p11(b1). p12(b2). p31(d11). 验证题5： domains name=symbol a