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

                                                                            Продолжение   прил WHILE
(NOT Eof(rules)) DO
BEGIN
       p_read(f_line);
  st_place :=pos('(' , f_line );
        IF (st_place=0)THEN st_place;=pos(COLON,f_line); IF(st_place>l)THEN
                BEGIN
                Command:= copy (f_line, 1 ,st_place-1);
                m_line:=copy(f_line,st_place+l, length(f_line)-st_place);
                 IF (command ='многозначный') THEN make_multi(m_line);
                IF (command ='вопрос') THEN add_question(m_line);
                 IF (command ='разрешен') THEN make_legals(m_line);
                IF (pos('правило',command)>0) THEN enter_rule(command)
              END
             END
         END;
         /////////////////
procedure Tfor_me.FormCreate(Sender: TObject);
begin
last_try:=NIL;
top_fact:=NIL;
choice :=0;
read_file;
end;
procedure Tfor_me.runClick( Sender: TObject);
begin
if hv.Checked then explain:=TRUE
                             else explain
:=FALSE; s_object:='';
{if MessageDlg('начать тест, конечной целью которого является'+chr(10)+'определение
продолжительности вашей жизни?:) ',
              mtConfirmation, [mbYes, mbNo], 0) = mrYes then s_object:= 'чайник'




                                                     204