таблица истиности

[Елена0210]

что значит "не". Если не сложно,можете нарисовать?

[Вадим Мошев]

"НЕ" - значит противоположное значение.
Если x = ИСТИНА, то НЕ x = ЛОЖЬ
Если x = ЛОЖЬ, то НЕ x = ИСТИНА
______________
Елена, я вам говорю, если всё так сложно, напишите мне адрес vadimFreelance (собака) yandex (точка) ru
Я предоставлю рам решение с объяснениями за некоторое денежное вознаграждение.

[digitalis]

За такие простые задачки мой Мурзик денег с дамов не берет, он гусар
А насчет объяснить, да еще так, чтоб Елена поняла - оно, конечно, денег стоит. Но такого количества денег ( чтоб поняла ) - у нее и не наберется.
А если не включать бошку, то можно накидать алиментарную прожку, и она все сама собой.

procedure TForm1.FormClick(Sender: TObject);
var
  i,ja,jb,jx,jx1,jx2: byte ;
 a,b,x,x1,x2:Boolean ;

function Flog(arg:boolean): byte ;
begin
   if arg then Result := 1 else Result := 0
end ;

begin
  For i := 0 to 3 do
    begin
      a := (i and 1) > 0 ; ja := Flog(a) ;
      b := i > 1 ;  jb := Flog(b) ;
      x1 := not(not(a) or b ) ; jx1 := Flog(x1) ;
      x2 := a and (not(b)) ; jx2 := Flog(x2) ;
      x := x1 or x2 ; jx := Flog(x) ;
      Memo1.Lines.Add(Format
         ('b=%2d   a=%2d    x1=%3d   x2=%2d    x=%3d',[jb, ja, jx1, jx2, jx]) )
    end ;
end;
end.

b= 0 a= 0 x1= 0 x2= 0 x= 0
b= 0 a= 1 x1= 1 x2= 1 x= 1
b= 1 a= 0 x1= 0 x2= 0 x= 0
b= 1 a= 1 x1= 0 x2= 0 x= 0
В общем, сборка по ИЛИ двух одинаковых И - типично учебная задача, без смысла, но почесать левой лапой правую лопатку.
Что эти половинки одинаковы, левую часть раздракониваем по правилу преобразования :
все входы и выходы меняем с прямых на инверсные и наоборот ;
все ИЛИ меняем на И и наоборот.

А вторая задачка настолько хлипкая, что ее можно и без Паскаля - вообще дохлая мышь.
Какая смена нам на смену движется !

PS А вдруг препод читает этот форум ?

PPS O rany boskie ! Убилейный 1000-й пост. Пойдем с Мурзиком дерябнем валерьянки.
PPPS Во дела! Оказывается, boolean тоже может быть параметром цикла! Польза от студевчатьских задач.

[Елена0210]

Спасибо)

[Аватар]

можно накидать алиментарную прожку

а так много короче и симпатичней)

procedure TForm1.Button1Click(Sender: TObject);
var b,a: Boolean;
begin
  for b:=False to True do
    for a:=False to True do
      Memo1.Lines.Add(Format('b=%d a=%d x=%d',[Byte(b),Byte(a),Byte(not(not a or b) or a and not b)]));
end;

или так еще короче (аж на три символа )

      Memo1.Lines.Add(Format('b=%d a=%d x=%d',[Ord(b),Ord(a),Ord(not(not a or b) or a and not b)]));

[digitalis]

Сообщение от digitalis

PPPS Во дела! Оказывается, boolean тоже может быть параметром цикла! Польза от студевчатьских задач.

Так вот именно на этой задачке я и убедился, что Boolean - тоже перечислимый тип, и его можно применять как параметр цикла. Попробовали - убедились.
А насчет краткости...
В древние времена (ЕС1032, перфокарты) - обратился ко мне один студеньт с такой же просьбой. Выдаю ему решение. Одна перфокарта - там 5..6 операторов.
- И это - всё ?!
- Оно работает.
- Но что же мне преподу показывать ?
А про Byte(Boolean) Ord(Boolean) тоже раньше не допетривал