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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

190
Продолжение прил.
IF((cf=DEFINITE)AND(is_100=TRUE)AND(curr_object^.multivald= FALSE)) THEN
Ok_add:=FA
LSE
END;
PROCEDURE make_multi(f_line:line_string);
VAR
curr_object:object_ptr;
dummy, f__object:word_string:
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;
curr_object^. multivaid: =TRUE
END;
FUNCTION find_legal(f_object:word_string;n :integer;VAR word:word__string)
:boolean;
VAR
curr _object:
object_ptr;
curr__value:
legal_ptr; counter:
integer;
BEGIN
curr_object:=find_object(f_object);
find_legal:=TRUE;
IF (curr_object<>nil) THEN
BEGIN
curr_value:=curr_object^.legal_list; word :=curr_value^. name;
counter:=l;
IF (curr_value=NIL)THEN find_legal:=FALSE;
WHILE ((curr_value<>NIL) AND (counter<n)) DO
BEGIN
curr_ value :=curr_value
^
.next;
IF (curr_value<>NIL) THEN
BEGIN
Word:=curr_value^.name; 
                                                                Продолжение прил.
IF((cf=DEFINITE)AND(is_100=TRUE)AND(curr_object^.multivald= FALSE)) THEN
Ok_add:=FA
LSE
END;
PROCEDURE make_multi(f_line:line_string);
VAR
curr_object:object_ptr;
dummy, f__object:word_string:
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;
curr_object^. multivaid: =TRUE
END;
FUNCTION find_legal(f_object:word_string;n :integer;VAR word:word__string)
:boolean;
 VAR
curr _object:
object_ptr;
curr__value:
legal_ptr; counter:
integer;
 BEGIN
curr_object:=find_object(f_object);
find_legal:=TRUE;
 IF (curr_object<>nil) THEN
BEGIN
        curr_value:=curr_object^.legal_list; word :=curr_value^. name;
        counter:=l;
        IF (curr_value=NIL)THEN find_legal:=FALSE;
        WHILE ((curr_value<>NIL) AND (counterNIL) THEN
                 BEGIN
                 Word:=curr_value^.name;




                                         190

Страницы