Ich hab die Aufgabe zwar nicht richtig verstanden, aber egal. Hier zumindest die Tabausgabe. Zwar wird dir dein Lehrer das nicht abnehmen, aber wenn er die Ausgabe in ListBox haben will...
Delphi-Quellcode:
const
Tabs = 4;
X: array[Boolean] of String = ('False', 'True');
var
ListBox: TListBox;
TabsInLB: array[0..4] of Integer;
A, B, C, BB : Boolean;
S: String;
begin
ListBox := ListBox1;
TabsInLB[0] := 0;
TabsInLB[1] := 50;
TabsInLB[2] := 100;
TabsInLB[3] := 150;
Listbox.TabWidth := 1;
SendMessage(ListBox.Handle, LB_SETTABSTOPS, Tabs, Longint(@TabsInLB));
A := False;
B := False;
C := False;
FOR A := False TO True DO
FOR B := False TO True DO
FOR C := False TO True DO
begin
BB := (A AND C) OR (NOT A AND NOT C) //ob das stimmt, glaube ich nicht, aber ich hab es übernommen. Evtl. fehlen da paar Klammern.
AND (B OR C) OR (B AND C)
AND (A OR B) OR (NOT A AND NOT B);
S := X[A] + #9 + X[B] + #9 + X[C] + #9 + X[BB];
ListBox.Items.Add(S)
end;
end;