Логические операции, таблица истинности (Паскаль)

[Keti]

Здравствуйте, очень-очень-очень нужна ваша помощь...уже второй день мучаюсь... не могу довести до ума((

Задание:
Написать программу для построения таблицы истинности логической функции F. Логическая функция должна быть реализована в качестве функции, принимающей в качестве параметров значения Х1 – Х4. Нулевые значения соответствуют логическому значению “ЛОЖЬ”, а не нулевые — “ИСТИНА”.
F = (X1 xor X3 & X2)+(X4|X3 & X4)+X1

Вот что у меня получилось:

program lab2;
uses crt;
Var x1,x2,x3,x4,F: Boolean;
begin
Clrscr;
F:=(((x1 XOR X3) AND x2) OR ((NOT x4 AND NOT x3) AND x4) OR x1);
Writeln ('x1':6, 'x2':6, 'x3':6, 'x4':6, 'x1 XOR x3':11, 'x1 XOR x3 & x2':14, 'NOT (x4 x3)':12, 'NOT (x4 x3) & x4':17, 'F':6);
For x1:=false to true do
For x2:=false to true do
For x3:=false to true do
For x4:=false to true do
Writeln (x1:6, x2:6, x3:6, x4:6, (x1 XOR x3):11, (x1 XOR x3 AND x2):14, (NOT x4 AND NOT x3):12, ((NOT x4 AND NOT x3) AND x4):17, F:5);
Readln;
end.

Может быть кто-нибудь подскажет, как сделать так, чтобы в таблице истинности вместо false и true выводились 0 и 1...
Ииии...табличка искомая, пока не очень похожа на табличку, она не вмещается на экране - её я ещё не успела отформатировать.
Заранее спасибо)

[Hacker19_90]

как сделать так, чтобы в таблице истинности вместо false и true выводились 0 и 1

Каких то стандартных функций для этого не слышал

но можно и так

function BoolToByte (const x: boolean): byte;
begin
    if x = true then BoolToByte := 1
    else BoolToByte := 0;
end;

ну соответствеено в программе

f := false;
Writeln (BoolToByte(f))

[Serge_Bliznykov]

как сделать так, чтобы в таблице истинности вместо false и true выводились 0 и 1

в TurboPascal достаточно использовать функцию ORD()

ord(false) вернёт ноль
ord(true) вернёт единицу


а ещё хотел бы отметить, что код

if x = true then

- это масло масляное! достаточно

if x then