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

                                                                             Продолжение и рил.
                           dlg. ShowModal;
                           if dlg.Radio1.Checked then pick:=l;
                           if dlg.Radio2.Checked then pick:=2;
                           if dlg.Radio3.Checked then pick:=3;
                           if dlg.Radio4.Checked then pick:=4;
                //pick:=strtoint(select);
                END;
                okay :=find_legal(f_object,pick,word);
       f_value:=word;
                END
                END
{добавление вопросов}
PROCEDURE add_question(f_line:line_string);
VAR
        new_line: line_string;
        curr_object :object_ptr;
        f_object,dummy:word_string;
        st_place:integer; BEGIN
split(f_line ,f_object, dummy);
curr_object :=find__object ( f_object);
 IF (curr_object=NIL) THEN make_node(curr_object); curr_object^.name :=f_object;
st_place :=pos( EQUALS,f_line);
new_line:=copy(f_line,st_place+l, length(f_line)-st_place); curr_object^ question: =new_line
END;
//////////////////
{Выполняет некоторые простые вспомогательные операции, такие как преобразование
букв вводимой строки в строчные Й удаление пробелов.}
PROCEDURE p_read(VAR oline:line_string);




                                                     193