Solutions de l'exercice 3 du TP n°2
(informatique en S1 DEUG MAIS+MASS)
PROGRAM TP2exc3 ;
VAR P, Q : boolean ;
BEGIN
Writeln('P':8, 'Q':8, 'P et Q':8, 'P ou Q':8, 'P => Q':8, 'P <=> Q':8) ;
P:=true ;
Q:=true ;
writeln(P:8, Q:8, (P and Q):8, (P or Q):8, (Q or not P):8, ((Q or not P) and (P or not Q)):8) ;
Q:=false ;
writeln(P:8, Q:8, (P and Q):8, (P or Q):8, (Q or not P):8, ((Q or not P) and (P or not Q)):8) ;
P:=false ;
writeln(P:8, Q:8, (P and Q):8, (P or Q):8, (Q or not P):8, ((Q or not P) and (P or not Q)):8) ;
Q:=true ;
writeln(P:8, Q:8, (P and Q):8, (P or Q):8, (Q or not P):8, ((Q or not P) and (P or not Q)):8) ;
END.