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

                                                                             Продолжение прил.
//обрабатывает указатель Правила для вывода названного правила на экран дисплея
PROCEDURE p_rule(curr_rule:rule_ptr);
VAR
curr_prem:prem__ptr;
curr_con: con_ptr;
vyvod: string;
BEGIN
vyvod:=";
vyvod :=vyvod+curr_rule^.name+': если ';
curr_prem:=curr_rule^.prem;
WHILE (curr_prem<>NIL) DO
BEGIN
       vyvod :=vyvod+curr_prem^.objects+'='+curr_prem^. value; curr_prem: =curr_prem^. next;
IF (curr_prem<>NIL) THEN vyvod:=vyvod+' и '+chr(10)
ELSE vyvod:=vyvod+chr( 10)
END;
vyvod:=vyvod+' то '+chr(10);
curr_con :curr_rule^.con;
WHILE (curr_con<>NIL) DO
BEGIN
 vyvod :=vyvod+cuгr_con^.objects+'='; vyvod:=vyvod+curr_con^.value; curr_con :=curr_con^. next;
IF (curr_con<>NIL) THEN vyvod :=vyvod+' и ' +chr(10)
 ELSE vyvod:=vyvod+chr( 10)
END;
//vyvod
for_me .bz .Items .Text :=for_me .bz. Items .Text+vyvod; END;
{читает правило из текстового файла и заносит его в список правил экспертной
системы}
PROCEDURE enter_rule(rule_name:string);
 VAR
    new_rule, curr_rule:rule_ptr;




                                                     196