Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Экспертная система

Название: Экспертная система
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 23:30:36 01 сентября 2005 Похожие работы
Просмотров: 67 Комментариев: 2 Оценило: 1 человек Средний балл: 2 Оценка: неизвестно     Скачать

Содержание

1 Задание.. 3

2 Соглашение о требованиях к программе.. 3

2.1 Описание назначения программы.. 3

2.2 Определение представления входных и выходных данных. 3

2.3 Действие программы. 5

3. Описание программы... 5

3.1 Язык программирования. 5

3.2.1 Описание структуры программы.. 5

3.2.2 Описания входящих процедур. 6

3.3 Спецификация интерфейсов программы.. 6

4 Текст программы... 7

5 Результаты тестирования.. 10

6 Список литературы... 11

1 Задание

Разработать простейшую экспертную систему.

Несколько определений:

Под экспертной системой понимается система, объединяющая возможности компьютера со знаниями и опытом эксперта в такой форме, что система может предложить РАЗУМНЫЙ СОВЕТ или осуществить РАЗУМНОЕ РЕШЕНИЕ поставленной задачи.

Экспертная система - программа, которая эмулирует взаимодействие пользователя с экспертом-человеком при решении определенной проблемы.

2 Соглашение о требованиях к программе

2.1 Описание назначения программы

В подключенной базе знаний “Животный мир” пользователю предлагается в шутливой форме определить, к какому виду живых существ он относится. Данная база знаний является шуточной.

2.2 Определение представления входных и выходных данных

По умолчанию входными данными является файл bd.txt, Файл содержит данные о представителях животного мира. Файл *.txt имеет строго определенную структуру:


Номер вопроса

Вопрос

Количество ответов

Ответы

Номер вопроса

.

.

.

В качестве примера:

1

К какому виду живых существ Вы себя относите?

3

Животное

Растение

Не знаю

11

К какому виду?

4

Насекомое

Птица

Млекопитающее

Не знаю

12

Какое семейство?

4

Дерево

Трава

Водоросль

Не знаю

13

У вас есть корни?

2

Да

Нет

111

Вы пьете кровь?

2

Да

Нет

Преимущества предложенной архитектуры базы знаний:

1. Простота построения.

2. Количество вопросов и ответов в системе не ограниченно.

3. Длина строки не ограниченна.

Вывод экспертной системы отображается на экране.

2.3 Действие программы.

Программа задает нужное количество вопросов, получая на каждый из них ответ. Если полученных ответов достаточно для определения объекта, система выдает ответ на экран (Вид животного).

3. Описание программы

3.1 Язык программирования

При написании настоящей программы использовался язык Object Pascal и система программирования Borland Delphi 5.0.

3.2.1 Описание структуры программы

Диаграмма модульной структуры

3.2.2 Описания входящих процедур

procedure ExitClick(Sender: TObject); - осуществляет выход из программы.

Procedure Button1Click(Sender: TObject); - меняет глобальную переменную select (множит ее на 10 и прибавляет 1), затем обновляет форму.

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BackClick(Sender: TObject); - проверяет select. Если она больше 10,то присваивает ей целую часть при делении на 10. Затем вызывает процедуру обновления формы.

procedure Button5Click(Sender: TObject); - визуализирует форму о программе.

procedure FormCreate(Sender: TObject); - обновляет основную форму при запуске программы.

procedure ReLoad(Sender: TObject); - обновление формы. Связывает файл с файловой переменной «namebd», открывает файл для чтения, ищет в файле строку, значение которой соответствует значению в «select» и после этого выходит из цикла. Затем читает следующую строку и присваивает ее значение свойству «caption» (заголовок) строки «label1». Далее читает следующую строку и присваивает ее значение переменной «i» (это количество кнопок). Потом заходит в цикл на 4 кнопки, в котором определяется количество активных кнопок. Под каждую кнопку программа читает соответствующую строку, которая присваивается свойству caption (для соответствующей кнопки).Затем кнопка активизируется.

Если номер цикла больше количества активных кнопок, то деактивируются лишние кнопки.

Дальше происходит закрытие файла.

3.3 Спецификация интерфейсов программы

По порядку задаются вопросы, и программа выдает меню, содержащее кнопки с вариантами ответов. Пользователь нажимает на нужную клавишу с ответом, и после чего задается следующий вопрос и т.д.

Когда программа готова дать ответ, в строке вопросов появится результат.

Главное меню содержит три важных команды.

« Exit » - осуществляется выход в оболочку Windows.

« Back » - осуществляется переход на предыдущий уровень (вопрос)

«О программе»- выводит информацию о дате, месте создания и создателе программы.

4 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Back: TButton;

Exit: TButton;

Label1: TLabel;

GroupBox1: TGroupBox;

Button5: TButton;

procedure ExitClick(Sender: TObject); // выход из программы

procedure Button1Click(Sender: TObject); // кнопки ответов

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BackClick(Sender: TObject); //возврат на предыдущий уровень

procedure Button5Click(Sender: TObject); //вызов формы о программе

procedure FormCreate(Sender: TObject); // создание формы программе

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Select: integer =1;

Namebzd: text;

implementation // блок выполнения

uses Unit2;

{$R *.DFM}

Procedure ReLoad(Sender: TObject); // обновляет внешний вид формы, новые вопросы и т.д.

var

str: string;

i,n: integer;

begin

assignfile (Namebzd, 'bzd.txt');

reset (Namebzd); // открывает для чтения

str := '';

while str <> inttostr (Select) do readln (Namebzd, str);// ищет место считывания

readln(Namebzd, str);

Form1.Label1.Caption := str;

readln(Namebzd, str);

i := strtoint (str);

for n:= 1 to 4 do // активизируется нужное количество кнопок с ответами

begin

if n < i+1 then

begin

readln (Namebzd, str);

case n of

1: begin

Form1.Button1.Visible := true;

Form1.Button1.Caption := str;

end;

2: begin

Form1.Button2.Visible := true;

Form1.Button2.Caption := str;

end;

3: begin

Form1.Button3.Visible := true;

Form1.Button3.Caption := str;

end;

4: begin

Form1.Button4.Visible := true;

Form1.Button4.Caption := str;

end;

end;

end

else case n of

1: Form1.Button1.Visible := false;

2: Form1.Button2.Visible := false;

3: Form1.Button3.Visible := false;

4: Form1.Button4.Visible := false;

end;

end;

closefile (Namebzd);

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

Halt(0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Select := Select*10+1;

ReLoad (form1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Select := Select*10+2;

ReLoad (form1);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Select := Select*10+3;

ReLoad (form1);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Select := Select*10+4;

ReLoad (form1);

end;

procedure TForm1.BackClick(Sender: TObject);

begin

if Select > 10 then Select := Select div 10;

ReLoad (form1);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

help.visible :=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Reload (Form1);

end;

end.

5 Результаты тестирования

Вопрос

Ответ 1

Ответ 2

Ответ 3

Ответ 4

Желаемый результат

Действительный результат

К какому виду?

Насекомое

Вы пьете кровь?

Вы пьете кровь?

Птица

Вы домашняя?

Вы домашняя?

Млекопитающее

Вы прыгаете с ветки на ветку?

Вы прыгаете с ветки на ветку?

Не знаю

Вы жужжите?

Вы жужжите?

Какое семейство?

Дерево

У вас есть?

У вас есть?

Трава

Вы запрещены законом?

Вы запрещены законом?

Водоросль

В вас много йода и вас едят?

В вас много йода и вас едят?

Не знаю

У вас есть кора?

У вас есть кора?

Список литературы

1. Фаронов В. В., Основы Турбо-Паскаля, «МВТУ-ФЕСТО Дидактик», М., 1992.

2. Макницкий М. И., Delphi 5.0 для профессионалов, 2000.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений22:14:08 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
13:26:51 24 ноября 2015

Работы, похожие на Реферат: Экспертная система

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150024)
Комментарии (1830)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru