- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
华南农业大学信息学院综合性设计性试验成绩单专业计算机班级
华南农业大学信息学院
综合性、设计性实验成绩单
专业 计算机 班级 01级4班 学号 2001374402
2001374413
2001374418
2001374419
2001374424
2001374428 姓名 陈 俊
胡 标
任春妍
任凌华
吴晓辉
杨柱洪 实
验
题
目 动物识别专家系统
按下列规则,写出一个分类专家系统:(1)有毛的动物是哺乳类;(2)有奶的动物是哺乳类;(3)有羽毛的动物是鸟类;(4)若动物会飞且会生蛋,则它是鸟类;(5)吃肉的哺乳类是肉食动物;(6)犬牙利爪,眼睛向前的是肉食动物;(7)反刍食物的哺乳类是有蹄类;(8)有蹄的哺乳类是有蹄类;(9)黄褐色有暗斑点的肉食类是金钱豹;(10)黄褐色有黑条纹的肉食类是老虎;(11)长腿长脖子有黄褐色暗斑的有蹄类是长颈鹿;(12)有黑白条纹的有蹄类是斑马;(13)不会飞长腿长脖的鸟是鸵鸟;(14)不会飞善游泳黑白色的鸟是企鹅;(15)善飞的鸟是信天翁。 自
我
评
价 胡标、任凌华负责总体设计
吴晓辉、杨柱洪、陈俊负责程序设计
任春妍负责界面处理、文档报告、以及程序算法设计 教
师
评
语 评价指标:
题目内容完成情况 优 □ 良 □ 中 □ 差 □
对算法原理的理解程度 优 □ 良 □ 中 □ 差 □
程序设计水平 优 □ 良 □ 中 □ 差 □
试验报告结构清晰 优 □ 良 □ 中 □ 差 □
试验总结和分析详尽 优 □ 良 □ 中 □ 差 □ 成绩 98 教师签名
动物识别专家系统
一、实验内容
按下列规则,写出一个分类专家系统:
(1)有毛的动物是哺乳类;
(2)有奶的动物是哺乳类;
(3)有羽毛的动物是鸟类;
(4)若动物会飞且会生蛋,则它是鸟类;
(5)吃肉的哺乳类是肉食动物;
(6)犬牙利爪,眼睛向前的是肉食动物;
(7)反刍食物的哺乳类是有蹄类;
(8)有蹄的哺乳类是有蹄类;
(9)黄褐色有暗斑点的肉食类是金钱豹;
(10)黄褐色有黑条纹的肉食类是老虎;
(11)长腿长脖子有黄褐色暗斑的有蹄类是长颈鹿;
(12)有黑白条纹的有蹄类是斑马;
(13)不会飞长腿长脖的鸟是鸵鸟;
(14)不会飞善游泳黑白色的鸟是企鹅;
(15)善飞的鸟是信天翁。
二、实验目的
1.加深对产生式表示法的认识;
2.熟悉数据库的制作与使用。
3. 专家系统的学习与应用
三、实验原理
四、设计过程
1.环境与配置
windows系统,Delphi7.0(可视化程序设计)
2结果如下
3.主要源代码实现过程
//unit2.dfm
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, StdCtrls, ExtCtrls,
CheckLst;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Query1: TQuery;
DataSource2: TDataSource;
Table1: TTable;
GroupBox1: TGroupBox;
Panel2: TPanel;
Panel1: TPanel;
Panel3: TPanel;
Splitter1: TSplitter;
Splitter2: TSplitter;
ListBox1: TListBox;
ListBox2: TListBox;
Button1: TButton;
Button3: TButton;
Button5: TButton;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Butt
文档评论(0)