Экспертные системы оперируют не только данными, но и понятийными концептуальными знаниями, выраженными на естественном языке и терминах предметнойобласти.Формой отображения понятийных знаний служат базы знаний, а сами понятийные знания становятся просто знаниями. Правила, содержащиеся в базе знаний, эквивалентны некоторой прикладной программе и могут быть различными по своему формату. Наиболее приемлемым является формат правила «если – то», причем в качестве компонента «то» могут использоваться выводы, утверждения, вероятности, указания, т. е. изменения базы данных. Связанное с правилом условие определяет, является ли то или иноеправилопотенциально справедливым по отношению к текущему состоянию ситуационной модели. Указанное правило разрешает проводить действие, если все заданные для него условия удовлетворяются.
Const n=20; var a:array[1..n] of integer; i,j,t,i1,i2,x:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(15); Write(a[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; Writeln('Отсортированный массив:'); for i:=1 to n do Write(a[i],' '); Writeln; write('x = '); readln(x); i1:=1; i2:=n; repeat i:=(i1+i2) div 2; if a[i]<x then i1:=(i1+i2) div 2+1; if a[i]>x then i2:=(i1+i2) div 2-1; until (a[i]=x)or(i1>i2); if a[i]=x then begin while (i>0)and(a[i]=x) do i:=i-1; i:=i+1; j:=i; while (i<=n)and(a[i]=x) do i:=i+1; writeln('Число ',x,' встречается ',i-j,' раз(а)'); end else writeln('Число ',x,' не встречается'); writeln; end.
полярним сяйвом
Объяснение: