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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

192
Продолжение при л .
{Здесь мы отвечаем на вопросы.
Распознает введенное имя объекта и извлекает соответствующий текст вопроса. Из списка
разрешенных значений объекта формируется меню.}
PROCEDURE ask(f_object:word_string;VAR f__value:word_string);
VAR
pick,pickl ,num_vals,i: integer;
okay: boolean;
word, select: word_string;
vyvod: string;
asa:array[ 1. .4]of string;
BEGIN
p__question(f_object);
IF (find_legal(f_object,l,word)) THEN BEGIN
num_vals:=l;
vyvod :=";
for i:-l to 4 do asa[i]:= ";
WHILE(find_legal(f_object,num_vals,word)<>FALSE)DO
BEGIN
vyvod :=vyvod+inttostr(num_vals)+ ') '+word+' ';
asa[num_vals ]:=word; num_vals: =num_vals+1
END;
dig. Radio1.Caption :=asa[1]
dig. Radio2.Caption :=asa[2]
dig. Radio3.Caption :=asa[3]
dig.Radio4. Caption:=asa[4]
if asa[3]=" then dlg.Radio3.Enabled:=false
else dig. Radio3.Enabled:=true;
if asa[4]=" then dlg, Radio4.Enabled :=false
else dlg. Radio4. Enabled :=true;
pick:=0;
WHILE ((pick<l) OR (pick>=num_vals)) DO BEGIN
{select:=InputBox('введите номер от 1 до '+
inttostr(num_vals-l), vyvod,' 1');
                                                                             Продолжение        при л .
{Здесь мы отвечаем на вопросы.
Распознает введенное имя объекта и извлекает соответствующий текст вопроса. Из списка
разрешенных значений объекта формируется меню.}
PROCEDURE ask(f_object:word_string;VAR f__value:word_string);
 VAR
pick,pickl ,num_vals,i: integer;
okay: boolean;
word, select: word_string;
 vyvod: string;
 asa:array[ 1. .4]of string;
 BEGIN
p__question(f_object);
 IF (find_legal(f_object,l,word)) THEN BEGIN
num_vals:=l;
 vyvod :=";
     for i:-l to 4 do asa[i]:= ";
       WHILE(find_legal(f_object,num_vals,word)<>FALSE)DO
       BEGIN
  vyvod :=vyvod+inttostr(num_vals)+ ') '+word+' ';
    asa[num_vals ]:=word; num_vals: =num_vals+1
END;
dig. Radio1.Caption :=asa[1]
dig. Radio2.Caption :=asa[2]
dig. Radio3.Caption :=asa[3]
dig.Radio4. Caption:=asa[4]
if asa[3]=" then dlg.Radio3.Enabled:=false
           else dig. Radio3.Enabled:=true;
  if asa[4]=" then dlg, Radio4.Enabled :=false
  else dlg. Radio4. Enabled :=true;
       pick:=0;
       WHILE ((pick=num_vals)) DO BEGIN
               {select:=InputBox('введите номер от 1 до '+ inttostr(num_vals-l), vyvod,' 1');




                                                   192

Страницы