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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

185
Продолжение прил.
curr_object: =top_fact;
if curr_object=NIL then begin
ShowMessage('База Знаний, увы... пуста!');
pusto:=false;
end;
WHILE(curr_object<>NIL) DO
BEGIN
see__vals(curr_object, сf_on);
cur^object:=cur_object^.next;
END
END;
procedure Tfor_me.vvodClick(Sender: TObject);
begin
ShowMessage('введите:(OБЪEKT)=(ЗHAЧEHИЕ))');
S_line=InputBox('ввод', 'ОБЪЕКТ=ЗНАЧЕНИЕ', ");
if(s_line<>‖) then begin
split(s_line,s_object,s_value);
add_object(s__object,s_value);
ShowMessage(faKT добавлен');
end
else ShowMessage(faKT HE добавлен, так как вы ничего не ввели');
END;
procedure Tfor_me.testenClick(Sender: TObject);
begin
if top_fact<>NIL then
begin
ShowMessage('ввeдитe:(OБЪEKT)=(ЗHAЧEHИE)) ');
S_line:=InputBox('ввод', 'ОБЪЕКТ=ЗНАЧЕНИЕ', ");
split(s_line,s_object,_value);
IF test(s_object,s_value)=NIL THEN ShowMessage('НЕВЕРНО
'
)
                                                                     Продолжение   прил.
curr_object: =top_fact;
if curr_object=NIL then begin
  ShowMessage('База Знаний, увы... пуста!');
  pusto:=false;
  end;
   WHILE(curr_object<>NIL) DO
   BEGIN
  see__vals(curr_object, сf_on);
  cur^object:=cur_object^.next;
   END
END;
procedure Tfor_me.vvodClick(Sender: TObject);
begin
ShowMessage('введите:(OБЪEKT)=(ЗHAЧEHИЕ))');
S_line=InputBox('ввод', 'ОБЪЕКТ=ЗНАЧЕНИЕ', ");
 if(s_line<>‖) then begin
   split(s_line,s_object,s_value);
  add_object(s__object,s_value);
   ShowMessage(faKT добавлен');
  end
  else ShowMessage(faKT HE добавлен, так как вы ничего не ввели');
   END;
procedure Tfor_me.testenClick(Sender: TObject);
begin
if top_fact<>NIL then
   begin
   ShowMessage('ввeдитe:(OБЪEKT)=(ЗHAЧEHИE)) ');
   S_line:=InputBox('ввод', 'ОБЪЕКТ=ЗНАЧЕНИЕ', ");
   split(s_line,s_object,_value);
   IF test(s_object,s_value)=NIL THEN ShowMessage('НЕВЕРНО')




                                                  185

Страницы