Программирование - это просто - Разрабатываем экспертную систему. Урок 3. Приступим к программированию экспертной системы

Разрабатываем экспертную систему. Урок 3. Приступим к программированию экспертной системы

Автор megabax

16.11.2010 г.

unit AIObj

Разрабатываем экспертную систему. Урок 3. Приступим к программированию экспертной системы

Все статьи по данной теме

И так, довольно теории. Пора приступить к практике. Вот пример простой обучающейся программы из книги Криса Нейлора "Как построить свою экспертную систему", написана она на языке БЕЙСИК (данный скриншот является цитатой из книги Нейлора К. "Как построить свою экспертную систему" ):

Попробуем перевести ее на Delphi. Пока для упрощения создадим в Delphi аналоги Print и Input. Для этого создадим проект, в который добавим компонент TMemo, его можно найти на закладке Standard*:

Назовем этот компонент mmPrintFiled, а главную форму приложения frmExpertSystem. Вот примерно как все должно выглядеть*:

Реализуем аналог команды Print:

procedure TfrmExpertSystem.Print(AStr:string);
begin
mmPrintFiled.Lines.Add(AStr);
end;

Да, и не забудьте объявить эту процедуру в классе формы:

TfrmExpertSystem = class(TForm)
   mmPrintFiled: TMemo;
private
   { Private declarations }
public
   { Public declarations }
   procedure print(AStr:string);
end;

Теперь займемся командой Input. Создадим еще одну форму*:

Назовем ее frmInput, положим на форму компонент TEdit, который назовем edInput. Она у нас так же находиться на закладке Standard*:

Укажем у формы заголовок "Введите текст", кинем так же на форму кнопочку "ОК" и приведем ее к такому виду*:

Теперь у класса основной формы реализуем метод Input:

function TfrmExpertSystem.Input:string;
var frm:TfrmInput;
begin
   frm:=TfrmInput.Create(self);
   frm.ShowModal;
   Result:=frm.edInput.Text;
end;

Что бы класс TfrmInput был доступен, подключим модуль формы frmInput к модулю основной формы*:

И так, у нас теперь есть аналоги Print и Input, и на следующем уроке мы уже сможем перевести программу на БЕЙСИКЕ на Delphi, а потом будем оптимизировать ее с применением возможностей объектно-ориентированного программирования.

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".

Все статьи по данной теме

Последнее обновление ( 22.10.2011 г. )

« След.		Пред. »

Вернуться