Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 186 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

186
Продолжение прил.
ELSE ShowMessage('BEPHO)
end
else ShowMessage('Проверять пока нечего: База Знаний пуста!')
end;
procedure Tfor_me. preview Click (Sender: TObject);
var b_str:string;
i: integer; begin
pusto:=true;
besa_int:=0;
see_objects( FALSE);
if pusto then
begin
b_str:=";
for i:=i to besa_int do b__str:=b_str+besa[i]4+chr(10);
ShowMessage(b_str);
end end;
////////////////
FUNCTION blend(cfl,cf2:integer):integer;
BEGIN blend:=((100*cf1)+(100*cf2)-(cf1*cf2)) DIV 100
END;
{Находит разрешенное значение в строке, содержащей имя объекта, и список разрешенных
объектов}
FUNCTION find_word(f_line:line_string;n:integer;VARword:word_string):boolean;
VAR x,com_place:integer;
BEGIN
find_word: =FALSE;
word:="; 
                                                                          Продолжение   прил.


   ELSE ShowMessage('BEPHO)
   end
   else ShowMessage('Проверять пока нечего: База Знаний пуста!')
end;
procedure Tfor_me. preview Click (Sender: TObject);
 var b_str:string;
i: integer; begin
pusto:=true;
 besa_int:=0;
 see_objects( FALSE);
 if pusto then
       begin
       b_str:=";
    for i:=i to besa_int do b__str:=b_str+besa[i]4+chr(10);
       ShowMessage(b_str);
    end end;


    ////////////////
FUNCTION blend(cfl,cf2:integer):integer;
 BEGIN blend:=((100*cf1)+(100*cf2)-(cf1*cf2)) DIV 100
END;


{Находит разрешенное значение в строке, содержащей имя объекта, и список разрешенных
объектов}
FUNCTION find_word(f_line:line_string;n:integer;VARword:word_string):boolean;
VAR x,com_place:integer;
BEGIN
find_word: =FALSE;
word:=";




                                                   186

Страницы