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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

188
Продолжение прил.
curr_object: =find_object( f_object);
IF (cur_object<>NIL) THEN
BEGIN
IF (curr_object^.question<>") THEN
/ / Show M essage ( curr_object^. question )
dig. lab.Caption := curr_object ^.question
ELSE begin
ShowMessage('Ответов не найдено. Таких чайников нет в природе.'); //('Каково значение
'+f_object+'?')
for_me.Close
endз
END
ELSE
ShowMessage('ответов не найдено. Таких чайников нет в природе.');//('Каково значение
'+f_object+' ?')
END;
///////////////////
FUNCTION get_cf(f_line:line_string): integer; VAR results,
st_right, cf:integer;
trim:
line_string;
BEGIN
ef :=DEFINITE;
st_right:=pos(PERIOD,f_line);
IF st_right=length(f_line) THEN f_line:=copy(f_line,l,st_right-l); st_right:=pos( 'кд' ,f_line);
IF (st_right>0) AND (st_right+3<LINE_MAX) THEN BEGIN
trim: =copy ( f_line, st_right+3, length( f_line)-st_right -2 );
val (trim, cf, result);
IF (result>0) THEN cf:=DEFINITE;
IF роs('плохой',trim)>0 THEN cf:=25;
IF pos('средний',trim)>0 THEN cf:=50; IF
pos('хороший',trim)>0 THEN cf:=75; 
                                                                         Продолжение прил.
 curr_object: =find_object( f_object);
 IF (cur_object<>NIL) THEN
 BEGIN
 IF (curr_object^.question<>") THEN
                 / / Show M essage ( curr_object^. question )
                 dig. lab.Caption := curr_object ^.question
         ELSE begin
ShowMessage('Ответов не найдено. Таких чайников нет в природе.'); //('Каково значение
'+f_object+'?')
for_me.Close
endз
 END
 ELSE
       ShowMessage('ответов не найдено. Таких чайников нет в природе.');//('Каково значение
'+f_object+' ?')
END;
///////////////////
FUNCTION get_cf(f_line:line_string): integer; VAR results,
st_right, cf:integer;
       trim:
line_string;
BEGIN
ef :=DEFINITE;
st_right:=pos(PERIOD,f_line);
IF st_right=length(f_line) THEN f_line:=copy(f_line,l,st_right-l); st_right:=pos( 'кд' ,f_line);
IF (st_right>0) AND (st_right+30) THEN cf:=DEFINITE;
IF роs('плохой',trim)>0                THEN cf:=25;
IF pos('средний',trim)>0             THEN cf:=50; IF
pos('хороший',trim)>0            THEN cf:=75;




                                                               188

Страницы