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

                                                                     Продолжение   прил.
FOR х:=1 TO n DO
        BEGIN
        соm_рlасе:=роs(СОММА, f_line);
        IF(com_place=0)THEN
               BEGIN
               com_place:=length ( f_line )+1;
               find_word:=TRUE
               END;
               word:=copy (f_line, 1 ,com_place-l);
f_line: =copy ( f_line, com__place+1,1ength (f_line) - com_place )
END
END;
{добавляет разрешенное значение к имени определенного объекта}
PROCEDURE
add_Iegal ( f_object: word__string; curr_object: object_ptr);
VAR curr_value, head:legal_ptr;
BEGIN
new(curr_value);
curr_value^.next: =NIL;
curr_value^.name:=f_object;
head:=curr_object^.legal_list;
IF(head<>NIL)THEN
        BEGIN
        WHILE (head^.next<>NIL) DO head :=head^. next;
        Head^, next:=curr_value
        END
ELSE
        curr_object^. Iegal_list: =curr_value
END;
{вывод вопросов о названном объекте}
PROCEDURE p_question(f_object:word_string);
VAR
curr_object: object_ptr;
BEGIN


                                                        187