имо рівняння:
X = X1 AND X2 AND X3 AND X5
Рішення завдання на Паскалі: (8. pas)
Uses crt;
Var m1, m2, f2, f3, h1, h3: boolean;
x1, x2, x3, x4, x5, x: boolean;
Begin
clrscr;
writeln ('a': 10, 'b': 10, 'c': 10, 'd': 10, 'e': 10, 'f': 10);
for m1: = false to true do begin
for m2: = false to true do begin
for f2: = false to true do begin
for f3: = false to true do begin
for h1: = false to true do begin
for h3: = false to true do begin
x1: = m1 OR m2;
x2: = f2 OR f3;
x3: = h1 OR h3;
x4: = NOT (m1 AND m2) AND NOT (f2 AND f3) AND NOT (h1 AND h3);
x5: = NOT (m1 AND m2) AND NOT (m1 AND h1) AND NOT (f3 AND h3)
AND NOT (m2 AND f2);
x: = X1 AND X2 AND X3 AND X4 AND X5;
if x <> false then
begin
writeln;
write (m1: 10, m2: 10, f2: 10, f3: 10, h1: 10, h3: 10);
end;
end;
end;
end;
end;
end;
end;
readkey;
end.
Відповідь:
1) 0 1 0 1 1 0 1) мат., фіз., хім.
2) 1 0 1 0 0 1 2) хім., мат., фіз.
№ 9: У справі про вбивство є два підозрюваних А і В. Допитали чотирьох свідків. Їх показання:
1-го А не винен X1 = A
2-го В не винен X2 = B
3-го Із двох свідчень одне істинно X3 = X1 OR X2
4-ий Показання 3-го свідка брехня. X4 = NOT X3
Четвертий свідок виявився правий. Хто винен? p> Відповідь: обидва не винні, обидва винні.
№ 10:
На питання хто з A, B, C, D, E грає в шахи отримано 5 відповідей.
1. Якщо А грає, то і В грає. Х1 = A IMP B
2. D і E грають обидва або один з них грає. X2 = D OR E
3. З В і С тільки один грає. X3 = B XOR C
4. C і D або обидва грають або обидва не грають. X4 = C EQV D
5. Якщо Е грає, то А і D теж грають. X5 = E IMP (A AND D)
Хто з п'ятьох грає в шахи? X = X1 AND X2 AND X3 AND X4 AND X5
Відповідь: 0 0 1 1 0
№ 11: Винахідливий комендант.
Під час ремонту гуртожитку комендант був змушений переселяти студентів. Справа це не просте. Посудіть самі. На одну з нових кімнат претендувало вісім людина, а поселити в ній можна було тільки чотирьох. Комендант став розпитувати студентів, хто з ким хоче жити. Ось, що він почув:
АНДРІЙ згоден на будь-яких сусідів.
БОРИС без Костя не переселиться. (K IMP B)
КОСТЯ не хоче жити в одній кімнат з ВАСИЛЕМ. (W IMP NOT K)
ВАСИЛЬ згоден жити з ким завгодно.
Діма не буде переселятися без ЮРИ. D AND Q
ФЕДЯ буде без Гриша жити в одній кімнаті з Дімою, а без Діми НЕ БУДЕ жити в одній кімнаті з КІСТОК. D IMP (F AND G) До IMP (F AND D)
ГРИША не хоче, щоб його сусідами були і БОРИС і КОСТЯ разом, крім того, він не бажає жити в одній кімнаті ні з АНДРІЄМ, ні з ВАСИЛЕМ. G IMP (NOT (B AND K))
GIMP (NOT A)
GIMP (NOT W)
ЮРА дасть згоду переїхати в нову кімнату, якщо туди ж переберуться або БОРИС або ФЕДЯ. Крім того, Юра не буде жити в одній кімнаті з КІСТОК, якщо туди не переїде ГРИША, і не бажає жити в одній кімнаті ні з АНДРІЄМ, ні з ВАСИЛЕМ.
(Q AND B) XOR (Q AND F) K IMP (Q AND G) (Q AND NOT A) AND (Q AND NOT B)
"Поставили мені задачу", - подумав комендант. Але, врешті-решт зумів врахувати всі побажання. Яким чином? p> Рішення на Паскалі: (11. pas)
Uses crt;
Var a, b, k, w, d, q, f, g: boolean;
x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x: boolean;
Begin
clrscr;
writeln ('a': 10, 'b': 10, 'k': 10, 'w': 10, 'd': 10, 'q': 10, 'f': +10, 'G': 10);
for a: = false to true do begin
for b: = false to true do begin
for k: = false to true do begin
for w: = false to true do begin
for d: = false to true do begin
for q: = false to true do begin
for f: = false to true do begin
for g: = false to true do begin
x2: = (NOT K OR B) AND (NOT W OR NOT K),
x4: = D AND Q;
x5: = NOT D OR (F AND G);
x6: = NOT K OR (F AND D);
x7: = NOT G OR (NOT (B AND K));
x8: = NOT G OR (NOT A);
x9: = NOT G OR NOT W;
x10: = (Q AND B) XOR (Q AND F);
x11: = NOT K OR (Q AND G),
x12: = (Q AND NOT A) AND (Q AND NOT B);
x: = x2 AND x4 AND x5 AND x6 AND x7 AND x8
AND x9 AND x10 {AND x11 AND x12};
if x <> false then
begin
writeln;
write (a: 10, b: 10, k: 10, w: 10, d: 10, q: 10, f: 10, g: 10);
end;
end;
end;
end;
end;
end;
end;
end;
end;
readkey; ...
