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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

194
Продолжение прил.
VAR c:char;
cs:string[l];
len, counter , st__place :integer;
supress: boolean;
in_line: line_string; BEGIN
readln( rules, in_line);
oline:=";
len:=length(in_line);
st_place:=pos(' и',in_line);
IF (st_place>0) THEN len:=st_place;
supress: =FALSE;
FOR counter:=1 TO len DO
BEGIN
c:=in_line[counter];
IF ((c=EQUALS) AND (pos('вonpoc'oline)>0)) THEN supress:=TRUE;
//IF (ord(c)=95) THEN c:=chr(32);
//IF ((с in['A'.. 'П']) AND (supress =FALSE)) THEN c:=chr(ord(c)+32);
//IF ((с in['Р'.. 'Я']) AND (supress=FALSE)) THEN c:=chr(ord(c)+80);
//cs:= '; '
//cs[l]:=c;
//IF((c<>' ') OR (supress=TRUE)) THEN
oline: =concat(oline,cs)
IF((c<>' ') OR (supress=TRUE)) THEN oline:=oline+c
END
END
{для добавления к текущему правилу предпосылки}
FUNCTION
add_prem(curr_prem :prem_ptr; f_line: line_string): prem_ptr;
VAR tem,new_prem:prem_ptr;
f_object,f__value:word_string;
BEGIN 
                                                                             Продолжение   прил.
VAR c:char;
      cs:string[l];
      len, counter , st__place :integer;
      supress: boolean;
      in_line: line_string; BEGIN
readln( rules, in_line);
oline:=";
len:=length(in_line);
st_place:=pos(' и',in_line);
IF (st_place>0) THEN len:=st_place;
supress: =FALSE;
FOR counter:=1 TO len DO
      BEGIN
      c:=in_line[counter];
      IF ((c=EQUALS) AND (pos('вonpoc'oline)>0)) THEN supress:=TRUE;
      //IF (ord(c)=95) THEN c:=chr(32);
      //IF ((с in['A'.. 'П']) AND (supress =FALSE)) THEN c:=chr(ord(c)+32);
      //IF ((с in['Р'.. 'Я']) AND (supress=FALSE)) THEN c:=chr(ord(c)+80);
      //cs:= '; '
      //cs[l]:=c;
      //IF((c<>' ') OR (supress=TRUE)) THEN
      oline: =concat(oline,cs)
      IF((c<>' ') OR (supress=TRUE)) THEN oline:=oline+c
      END
      END
{для добавления к текущему правилу предпосылки}
FUNCTION
add_prem(curr_prem :prem_ptr; f_line: line_string): prem_ptr;
VAR tem,new_prem:prem_ptr;
      f_object,f__value:word_string;
BEGIN




                                                       194

Страницы