Александрович Василий
?>

Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово. проверьте моё решение и исправьте что не так, var s, s1: string; st2, st3, st1, st: set of char; n, i: byte; begin readln(s); n: =length(s); st: =['б', 'в']; i: =1; while i< =n do begin while (s[i]< > ', ') or (s[i]< > '.') do begin if s[i] in st1 then n: =n else if (s[i] in st) then st1: =st1+[s[i]]; inc(i); if i=n then break; end; i: =i+1; while (s[i]< > ', ') or (s[i]< > '.') do begin if s[i] in st1 then n: =n else if (s[i] in st) then st2: =st2+[s[i]]; inc(i); if i=n then break end; st3: =st1*st2; st1: =st1-st3; st2: =st2-st3; st1: =st1+st2; end; for i: =1 to n do if s[i] in st1 then n: =n else write(s[i], ' '); end.

Информатика

Ответы

irschacha

Экспертные системы- это интеллектуальные системы получать, накапливать и корректировать знания в заданной предметной области, получать новые знания, решать на основе этих знаний практические задачи и объяснять ход их решения.

Типичное применение экспертных систем- консультирование специалистов средней квалификации и неспециалистов в той сфере,  для которой разработаны экспертные системы.

Создано немало экспертных систем в таких сферах, как медицинская диагностика, юриспруденция, управление технологическими процессами.

В создании экспертных систем должны принимать участие специалисты 2 категорий: экспертов и инженеров знаний.

Эксперты-это высококвалифицированные специалисты в данной предметной области, знания которых нужно передать экспертной системе.

Задачей инженеров знаний является формализция знаний экспертов и приведение их к виду, пригодному для занесения в базу знаний.

Наиболее известным языком программирования, предназначенным для разработки экспертных систем, считается язык Пролог. Этот язык имеет удобные средства для отображения фактов и правил, а в основе выполнения программы, написанной на ПРОЛОГе , лежит встроенный механизм логического вывода.

Екатерина1979

Объяснение:

Никогда такое не решал, но попробую

На выходе F=1

Идем с конца

До него & (конъюнктор) - это логическое AND

По таблице истинности находим, что На выходе 1, только если на входе 1 и 1, значит А=1

Теперь идем от А. Сначала инверсия, получаем 0

Далее 0 AND B и мы должны получить 1. И тут у меня ломается мозг.

0 AND что угодно - получим 0, а если так, то и F=0 станет.

Вот и логическая бомба.

Решения не вижу у этой задачи, если F=1

Еще функцию надо

F=(A)AND((NOT(A))AND(B))

1=1AND1, значит A=1 и

(NOT(A))AND(B)=1

тогда B=1 и NOT(A)=1.

но NOT(A)=1 и А=1 не может быть. Мы пришли к противоречию.

Утерян "лучший ответ". Нашедшему вернуть.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово. проверьте моё решение и исправьте что не так, var s, s1: string; st2, st3, st1, st: set of char; n, i: byte; begin readln(s); n: =length(s); st: =['б', 'в']; i: =1; while i< =n do begin while (s[i]< > ', ') or (s[i]< > '.') do begin if s[i] in st1 then n: =n else if (s[i] in st) then st1: =st1+[s[i]]; inc(i); if i=n then break; end; i: =i+1; while (s[i]< > ', ') or (s[i]< > '.') do begin if s[i] in st1 then n: =n else if (s[i] in st) then st2: =st2+[s[i]]; inc(i); if i=n then break end; st3: =st1*st2; st1: =st1-st3; st2: =st2-st3; st1: =st1+st2; end; for i: =1 to n do if s[i] in st1 then n: =n else write(s[i], ' '); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

me576
Агибалов428
Irina-Tunyan
Elvira-Natalya
Олег1105
araqsyabadalyan1988
Elshel8694
Остап-Лаврова1410
mishamedbrat
Nadirovich1317
rashad8985
fhf3624
maglevanyycpt
aaltuxova16
Александрович686