Реферат: Экспертная система

{ Public declarations }

end;

var

Form1: TForm1;

Select: integer =1;

Namebzd: text;

implementation // блок выполнения

uses Unit2;

{$R *.DFM}

Procedure ReLoad(Sender: TObject); // обновляет внешний вид формы, новые вопросы и т.д.

var

str: string;

i,n: integer;

begin

assignfile (Namebzd, 'bzd.txt');

reset (Namebzd); // открывает для чтения

str := '';

while str <> inttostr (Select) do readln (Namebzd, str);// ищет место считывания

readln(Namebzd, str);

Form1.Label1.Caption := str;

readln(Namebzd, str);

i := strtoint (str);

for n:= 1 to 4 do // активизируется нужное количество кнопок с ответами

begin

if n < i+1 then

begin

readln (Namebzd, str);

case n of

1: begin