 Вывод булевых функций, Подскажите, пожалуйста |
Здравствуйте, гость ( Вход | Регистрация )
| Tri |
 29.10.2008, 18:06
Сообщение
#1
|
|
Студент  Группа: Продвинутые Сообщений: 94 Регистрация: 26.10.2007 Город: Тюмень Учебное заведение: ТГНГУ Вы: студент  |
Здравствуйте.
Есть такое задание: вывести все значения всех булевых функций от трёх переменных(только с конъюнкцией и дизъюнкцией). Также есть условие: значения равных функций вывести только один раз, и не выводить значения функций, которые при всех 1 на входе дают 1 и на выходе. В задании сказано, что таких функций должно получиться 34, если я всё правильно поняла, но у меня получается 35: xyz - 7 функций, x v y v z - 7, x v yz, y v xz, z v xy - ещё 21. Подскажте, пожалуйста, в чём может быть ошибка. Или я неправильно поняла задание? Ещё я попробовала реализовать программу, пока только для 2 функций: Код var i,j,k,a:integer; function con(i,j,k: integer): integer; begin CON:=i and j and k; end; function dis(i,j,k: integer): integer; begin DIS:= i or j or k; end; begin Write('x y z x^y^z'); Writeln; for i:=0 to 1 do begin for j:=0 to 1 do for k:=0 to 1 do begin if (i=1) and (j=1) and (k=1) then Break; Write(i,' ',j,' ',k); a:=CON(i,j,k); Write(' ', a); Writeln; end; end; Writeln; Write('x y z x v y v z'); Writeln; for i:=0 to 1 do begin for j:=0 to 1 do for k:=0 to 1 do begin if (i=1) and (j=1) and (k=1) then Break; Write(i,' ',j,' ',k); a:=DIS(i,j,k); Write(' ', a); Writeln; end; end; Readln; end. Подскажите, пожалуйста, более изящное решение, и возможно ли сделать, чтобы программа была универсальна для n переменных? Заранее огромное спасибо! |
   |
 
|
  |
Ответов
| Tri |
5.11.2008, 13:35
Сообщение
#2
|
|
Студент Группа: Продвинутые Сообщений: 94 Регистрация: 26.10.2007 Город: Тюмень Учебное заведение: ТГНГУ Вы: студент |
Цитата Если правильно понял, вы путаете функции и значения функции от различных параметров. Там, конечно, 7 значений функции, а не функции:) По программе всё исправила. Инверсия по заданию допускается. А есть ли среди этих 109 полученных функций одинаковые равные функции? Может, если их убрать, то их меньше получится? |
|
|
|
Сообщений в этой теме
Tri Вывод булевых функций 29.10.2008, 18:06
malk
1. Если в булевой функции используется только кон... 4.11.2008, 8:13
malk Для функции от 3-х переменных возможно 2^3=8 комби... 5.11.2008, 13:54 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 18:38 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru