Экспертные системы- это интеллектуальные системы получать, накапливать и корректировать знания в заданной предметной области, получать новые знания, решать на основе этих знаний практические задачи и объяснять ход их решения.
Типичное применение экспертных систем- консультирование специалистов средней квалификации и неспециалистов в той сфере, для которой разработаны экспертные системы.
Создано немало экспертных систем в таких сферах, как медицинская диагностика, юриспруденция, управление технологическими процессами.
В создании экспертных систем должны принимать участие специалисты 2 категорий: экспертов и инженеров знаний.
Эксперты-это высококвалифицированные специалисты в данной предметной области, знания которых нужно передать экспертной системе.
Задачей инженеров знаний является формализция знаний экспертов и приведение их к виду, пригодному для занесения в базу знаний.
Наиболее известным языком программирования, предназначенным для разработки экспертных систем, считается язык Пролог. Этот язык имеет удобные средства для отображения фактов и правил, а в основе выполнения программы, написанной на ПРОЛОГе , лежит встроенный механизм логического вывода.
uses crt;
type
massiv = array [1..100] of integer; // объявляем свой тип данных
var
mass : massiv ;
sum, proiz , i , n: integer;
begin
clrscr;
write('Введите длину массива : '); readln(n);
sum := 0 ;
proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!
for i:=1 to n do
begin
write('Введите ', i , ' элемент : '); readln(mass[i]);
if (mass[i] mod 2 = 0) then sum := sum + mass[i]
else proiz := proiz * mass[i];
end;
writeln('Сумма четных равна ', sum);
writeln('Произведение нечетных равно ', proiz);
readln; // чтобы программа не закрывалась
end.