Лабораторные работы 1-4 / bz3
.pdfСанкт-Петербургский Государственный Электротехнический Университет
(ЛЭТИ)
кафедра МО ЭВМ
Отчет по лабораторной работе №3
Экспертная система
Выполнил студент группы 1382, ФКТИ |
Пухкал И. |
Санкт-Петербург 2005
2 Описание |
2 |
1. Постановка задачи |
|
|
|
|
В качестве наполнения экспертной системы используются данные о совре- |
||||
менных трассах гоночного чемпионата в классе машин ¾Формула-1¿. |
||||
|
Трасса |
Альберт Парк |
Сепанг |
Сахир |
|
Время постройки |
|
Новые |
|
|
Архитектор - Тильке |
нет |
да |
да |
|
Часть света |
Австралия |
Азия |
Ближний Восток |
2. Описание
параметры возврат 1 возврат word no
1 если текст - выведен то разрешить - да 2 если разрешить - да
ивремя - новая
итильке - нет
ихорошо - да
то трасса - Альберт_Парк 3 если разрешить - да
ивремя - новая
итильке - да
ичастьсвета - Азия
ирисунок - показать то трасса - Сепанг 4 если разрешить - да
ивремя - новая
итильке - да
ичастьсвета - Ближний_Восток
итекст - выведен
то трасса - Сахир параметры текст 2 initial word no параметры рисунок 3 show word no вопрос сообщение
Система зашла в тупик. Подтвердите в следующем окне. вопрос время
Какое время постройки трассы (до 1990 старая) - новая или старая вопрос тильке Архитектор трассы тильке (да/нет)?
вопрос частьсвета
Вкакой частьсвета расположена трасса? вопрос протяженность
Какова протяженность трассы (до 5 км короткая) - короткая или длинная вопрос европа
Вкакой части европа находится трасса - западная или восточная вопрос тесты
3 Граф |
3 |
Проводятся ли на трассе тесты (да/нет)?
А в код динамической библиотеки внесены следующие изменения: функция initial выводит приветствие перед началом работы, а функция show выводит изображение одной из трасс.
Листинг 1. Модуль библиотеки.
unit Predobl;
interface
5uses Tipe,
SysUtils , WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
10 TFormPredObl = class(TForm) Image1: TImage;
private
{ Private declarations } public
15 { Public declarations } end;
var
FormPredObl: TFormPredObl; 20 const
eps=0.3; a0=1; b0=10;
procedure eval_proc(number:integer; par:domen;
var val:string40 ;var KD:integer); stdcall ;// export;
25implementation
{$R .DFM}
30procedure eval_proc(number:integer; par:domen; var val:string40 ; var KD:integer); stdcall ;
|
procedure initial(); {начальная установка} |
|
begin |
|
val := ’выведен’; |
35 |
MessageDlg(’Поздравляю, вы начинаете работу с ’ + |
|
’экспертной системой по автогонкам в классе машин Формула−1’, mtinformation, [mbOK |
|
], 0); |
|
end; |
|
procedure show(); |
|
begin |
40val := ’показать’; FormPredObl.Show;
end; begin
if not FlagPrObl then 45 begin
FormPredObl:= TFormPredObl.Create(Application); FlagPrObl:=True;
end;
case number of
502: initial () ;
3:show();
end;
// FormPredObl.Free; end;
55
end.
3. Граф
3 Граф |
4 |
{текст}
Время
[новая]
Тильке
HHHH
H
[нет] |
[да] |
|||
Часть света |
Часть света |
|||
|
|
H |
||
|
|
|||
|
|
|
HH |
|
[Авс.] |
||||
Альб. |
[Азия] |
[Бл.Вост.] |
||
{рисунок} |
Сахир |
|||
|
|
|||
Сепанг
Рис. 1. Граф достижения цели