Prova i logici

di

Le operazioni più comuni con i valori logici

Program Prova_Logici;
Var
   a, b: Boolean;
Begin
   Writeln('  a      Not');
   a:=FALSE: Writeln(a:5, ' = ' , (Not a):5);
   a:=TRUE;  Writeln(a:5, ' = ' , (Not a):5);
   Writeln;
   Writeln('  a     b       Or   And   Xor');
   a:=FALSE; b:=FALSE: Writeln(a:5,b:6,' = ',(a Or b):5,(a And b):6,(a Xor b):6);
   // continua ...
   Writeln;
   Writeln('  a     b       <     <=    =     >     >=    <>');
   a:=FALSE; b:=FALSE; Writeln(a:5,b:6,' = ',(a < b):5,(a <= b):6,(a = b):6,(a > b):6,(a >= b):6,(a <> b):6);
   // continua ...
   Readln;
End.

Note

  1. Altre funzioni che restituiscono un valore logico: Keypressed Odd()
  2. Altre funzioni che trattano anche i valori logici: Pred() Succ() Ord()