Registriert seit: 4. Mär 2014
4 Beiträge
|
Bedingungen mit Boolean und Listbox ausgeben
4. Mär 2014, 19:21
Heyho,
Hab erst seit ein paar Monaten Informatik, nun haben wir eine Aufgabe bekommen, bei der wir mithilfe von Boolean Variablen arbeiten sollen.
In der Aufgabe ging es um die Einladung von 3 Personen, bei denen alle 3 Bedingungen erfüllt sein müssen.
Mit einer Listbox sollen wir alle 8 Ergebnisse in 3 Spalten ( Bsp.: true false false ) etc. ausgeben.
Leider habe ich keinen Plan wie man das so ausgeben kann.
Für die Meisten hier sicherlich ein Kinderspiel.
Hoffe ihr könnt mir schnell helfen, das Projekt wird eventuell am Donnerstag schon eingesammelt und benotet ...
Hier der Quelltextausschnitt (weiß nich ob auch da schon alles korrekt ist ...) :
procedure TForm1.B_StartClick(Sender: TObject);
var A, B, C, BB : boolean;
begin
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)
AND (B OR C) OR (B AND C)
AND (A OR B) OR (NOT A AND NOT B);
end;
end;
end.
|