Составьте таблицу истинности

[Andrewwwww]

Ребят, помогите пожалуйста)

[ViktorR]

А так пойдет?

uses crt;
type Dat = record
       o1, o2 : boolean;
     end;
function Test(a : boolean; b : boolean; c : boolean) : Dat;
begin
   Test.o1 := (a OR c) AND (a OR b);
   Test.o2 := (NOT (b AND c)) OR (NOT Test.o1);
end;

procedure FOut(a : boolean; b : boolean; c : boolean; d : Dat);
begin
   writeln('+-------+-------+-------++---------+---------+');
   writeln('| ',a:5, ' | ', b:5, ' | ', c:5, ' ||  ', d.o1:5, '  |  ', d.o2:5, '  | ');
end;

var ia, ib, ic : boolean;
    Oi : Dat;

begin
 clrscr;
  writeln('  Вход 1  Вход 2  Вход 3    Выход 1   Выход 2');

  ia := false; ib := false; ic := false;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);


  ia := false; ib := false; ic := true;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := false; ib := true; ic := false;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := false; ib := true; ic := true;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := true; ib := false; ic := false;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := true; ib := false; ic := true;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := true; ib := true; ic := false;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  ia := true; ib := true; ic := true;
  Oi := Test(ia,ib,ic);
  FOut(ia, ib, ic, Oi);

  writeln('+-------+-------+-------++---------+---------+');

end.

Если это сложно, то нарисуй таблицу вида:

Вх 1  Вх 2 Вх 3  ИЛИ 1  ИЛИ 2  И1  И2  НЕ1  НЕ2  ИЛИ
--------------------------------------
0      0     0 ...
0      0     1 ...
...
1      1     1 ...
--------------------------------------

Запиши промежуточные результаты и вуаля ...



Вроде работает ...

[BDA]

Небольшое сокращение кода ViktorRа (у меня в дельфи не скомпилировалось из-за наличия test.o1 в правой части):

uses
  crt;
type
  Dat = record
    o1, o2: boolean;
  end;

function Test(a: boolean; b: boolean; c: boolean): Dat;
var
  d: boolean;
begin
  d := (a OR c) AND (a OR b);
  Test.o1 := d;
  Test.o2 := (NOT(b AND c)) OR (NOT d);
end;

procedure FOut(a: boolean; b: boolean; c: boolean; d: Dat);
begin
  writeln('+-------+-------+-------++---------+---------+');
  writeln('| ', a:5, ' | ', b:5, ' | ', c:5, ' ||  ', d.o1:5, '  |  ', d.o2:5,
    '  | ');
end;

var
  ia, ib, ic: boolean;

begin
  clrscr;
  writeln('  Вход 1  Вход 2  Вход 3    Выход 1   Выход 2');

  for ia := false to true do
    for ib := false to true do
      for ic := false to true do
        FOut(ia, ib, ic, Test(ia, ib, ic));

  writeln('+-------+-------+-------++---------+---------+');
  readln;

end.

[ViktorR]

Прошу простить меня, но программа была шуткой.
Дело было ..., делать было ...

Как изготовить циклы с логическими переменными, сразу что-то не придумал.
Так штааа ..., Ваш пример мне на пользу.



И почему Земля круглая?
Она не круглая, а шарообразная ...