1:
2:
3:
4:
5:
6:
7:

begin
  Writeln('a       not      a      b       a and b       a or b     a xor b');
  Writeln('true   false     true  true     true          true       false');
  Writeln('false  true      true  false    false         true       true');
  Writeln('                 false true     false         true       true');
  Writeln('                 false false    false         false      false');
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Eingabe(a);
Eingabe(b);

if a then
  Ausgabe( a ist wahr)
else
  Ausgabe( a ist falsch);

if (a and b) then
  Ausgabe(a AND b ist wahr)
else
  Ausgabe(a AND b ist falsch);

// usw.					

1:
2:
3:
4:
5:

geben sie einen boolschen wert für a ein (t: true, f: false): f
geben sie einen boolschen wert fpr b ein (t: true, f: false): f

Boolsche tabelle:
.....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

// nur die Werte für a und b setzen...
a := true;
b := true;
// ...die anderen berechnen
Writeln(a xor b);
Writeln(a and b);
Writeln(a or b);
Writeln(not a);


// nur die Werte für a und b setzen...
a := false;
b := true;
// ...die anderen berechnen
Writeln(a xor b);
Writeln(a and b);
Writeln(a or b);
Writeln(not a);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

program phausaufgabe3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b: boolean; //typ

begin
  // nur die Werte für a und b setzen
a := true; //a true or false zuordnen
b := true;  //b true or false zuordnen
//die anderen berechnen
writeln('a','nota':12,'a':8,'b':10,'a and b':15,'a or b':10,'a xor b':10);
writeln(a ,not a :10, a :10 ,b :10 ,a and b:10 ,a or b:10 , a xor b:10 );
a := false;//a true or false zuordnen
b := false; //b true or false zuordnen
//die anderen berechnen
writeln(a ,not a :8, a :12 ,b :10 ,a and b:10 ,a or b:10 , a xor b:9 );
a := false; //a true oder false zuordnen
b := true;   //b true oder false zuordnen
//die anderen berechnen
writeln(a :25 ,b :9 ,a and b:11 ,a or b:9 , a xor b:9);
a := false;  //a true or false zuordnen
b := false;   //b true or false zuordnen
writeln(a :25 ,b :10 ,a and b:10 ,a or b:10 , a xor b:9);
readln;

end.					

1:
2:

BoolA:=('t'=ausgelesenerText);
BoolB:=('t'=ausgelesenerText);