45533 (Экспертная система)

2016-07-31СтудИзба

Описание файла

Документ из архива "Экспертная система", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "45533"

Текст из документа "45533"

Содержание

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 » - осуществляется переход на предыдущий уровень (вопрос)

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

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

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.

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

Вопрос

Ответ 1

Ответ 2

Ответ 3

Ответ 4

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

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

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

Насекомое

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

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

Птица

Вы домашняя?

Вы домашняя?

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

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

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

Не знаю

Вы жужжите?

Вы жужжите?

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

Дерево

У вас есть?

У вас есть?

Трава

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

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

Водоросль

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

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

Не знаю

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

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

















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

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

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



12

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Нашёл ошибку?
Или хочешь предложить что-то улучшить на этой странице? Напиши об этом и получи бонус!
Бонус рассчитывается индивидуально в каждом случае и может быть в виде баллов или бесплатной услуги от студизбы.
Предложить исправление
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
5076
Авторов
на СтудИзбе
455
Средний доход
с одного платного файла
Обучение Подробнее