Постройте таблицу истиности в Паскале : (A*B)→(⌐A*C)

Question

Постройте таблицу истиности в Паскале : (A*B)→(⌐A*C)

Answer 1

Значения в таблице принимают значения истина(True) и ложь(False).

//Pascal
var A, B, C: boolean;
begin
write('    A      B      C   ');
writeln('   A&B    ⌐A    ⌐A&C     F');
for A := false to true do
  for B := false to true do
    for C := false to true do
      writeln(a:7, b:7, c:7,(A and B):7, not(A):7,
      (not(A)and C):7,(not(A and B)or(not(A) and C)):7);
end. 

---

Comments

Вот переделал немного. Вместо True False обычные значения 0 и 1.

---

//Pascal
var A, B, C: boolean;
begin
write(' A B C ');
writeln('A&B ⌐A ⌐A&C F');
for A := false to true do
for B := false to true do
for C := false to true do
writeln(ord(A):5, ord(B):5, ord(C):5,ord((A and B)):5, ord(not(A)):5,
ord((not(A)and C)):5,ord((not(A and B)or(not(A) and C))):5);
end.

---

Пробелы только расставь в первом write и writeln/

---

Или возьми вот этот:

---

//Pascal
var A, B, C: boolean;
begin
writeln('A':5, 'B':5, 'C':5,'A&B':6, '⌐A':4, '⌐A&C':6,'F':4);
for A := false to true do
for B := false to true do
for C := false to true do
writeln(ord(A):5, ord(B):5, ord(C):5,ord((A and B)):5, ord(not(A)):5,
ord((not(A)and C)):5,ord((not(A and B)or(not(A) and C))):5);
end.

---

Спасибо огромное