variants binary bool int

Smart pascal source code


var v1, v2: Variant;

v1 := True;
v2 := False;

WriteLn(v1 or v2);
WriteLn(not(v1 or v2));
WriteLn(v1 and v2);
WriteLn(not(v1 and v2));
WriteLn(v1 xor v2);
WriteLn(not(v1 xor v2));

v1 := 7;
v2 := 2;

WriteLn(v1 or v2);
WriteLn(not(v1 or v2));
WriteLn(v1 and v2);
WriteLn(not(v1 and v2));
WriteLn(v1 xor v2);
WriteLn(not(v1 xor v2));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TrueFalse
FalseTrue
TrueFalse
7-8
2-3
5-6
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var v1,
   v2;

/* <<< main JS >>> */

   v1 = true;
   v2 = false;
   WriteLn((v1||v2));
   WriteLn((!(v1||v2)));
   WriteLn((v1&&v2));
   WriteLn((!(v1&&v2)));
   WriteLn((v1^v2));
   WriteLn((!(v1^v2)));
   v1 = 7;
   v2 = 2;
   WriteLn((v1||v2));
   WriteLn((!(v1||v2)));
   WriteLn((v1&&v2));
   WriteLn((!(v1&&v2)));
   WriteLn((v1^v2));
   WriteLn((!(v1^v2)));