华南农业大学信息学院综合性设计性试验成绩单专业计算机班级.DOC

华南农业大学信息学院综合性设计性试验成绩单专业计算机班级.DOC

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 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)

xiaozu + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档