Экспертные системы- это интеллектуальные системы получать, накапливать и корректировать знания в заданной предметной области, получать новые знания, решать на основе этих знаний практические задачи и объяснять ход их решения.
Типичное применение экспертных систем- консультирование специалистов средней квалификации и неспециалистов в той сфере, для которой разработаны экспертные системы.
Создано немало экспертных систем в таких сферах, как медицинская диагностика, юриспруденция, управление технологическими процессами.
В создании экспертных систем должны принимать участие специалисты 2 категорий: экспертов и инженеров знаний.
Эксперты-это высококвалифицированные специалисты в данной предметной области, знания которых нужно передать экспертной системе.
Задачей инженеров знаний является формализция знаний экспертов и приведение их к виду, пригодному для занесения в базу знаний.
Наиболее известным языком программирования, предназначенным для разработки экспертных систем, считается язык Пролог. Этот язык имеет удобные средства для отображения фактов и правил, а в основе выполнения программы, написанной на ПРОЛОГе , лежит встроенный механизм логического вывода.
program twonumbers;
var
first, second: integer;
begin
read(first, second);
if ((first + second) mod 3 = 0) then
write(first * second)
else
begin
first := first * 2;
second := second * 2;
write(first, ' ', second);
end;
end.
Объяснение:
program twonumbers; // Название программы
var
first, second: integer; // Целочисленные переменные, хранящие вводимые с клавиатуры значения
begin // Начало программы
read(first, second); // Считываем 2 целых числа с клавиатуры
if ((first + second) mod 3 = 0) then // Если сумма чисел кратна 3
write(first * second) // Выводим их произведение
else // Иначе
begin // Начало цикла
first := first * 2; // Увеличиваем первое вдвое
second := second * 2; // Увеличиваем второе вдвое
write(first, ' ', second); // Выводим их
end; // Конец цикла
end. // Конец программы
var
i, n, count2, max2, count3, min3 : Integer;
begin
ReadLn(n);
count2:=0; max2:=0;
count3:=0; min3:=1000;
for i:=1 to n do
begin
Read(n);
if (n>9) and (n<100) then
begin
inc(count2);
if n>max2 then max2:=n;
end;
if (n>99) and (n<1000) then
begin
inc(count3);
if n<min3 then min3:=n;
end;
end;
if count2=count3 then
WriteLn(0)
else if count2>count3 then
WriteLn(max2)
else
WriteLn(min3);
end.
Объяснение: