Also wie man eine aussagekräftige Anzeige von 3 Eingangswerten und einem Ausgangswert mit
3 "Spalten" realisieren soll ist mir schleierhaft.
Entweder hat hier der Lehrkörper geschlampt, oder es handelt sich um das
Stille-Post-Syndrom (wieder mal nur die Hälfte gehört und die noch falsch wiedergegeben).
Der direkteste Lösungsweg wäre (wenn ich die Vorgabe mal frei erweitere um der Ausgabe eine Aussagekraft zu verleihen):
Delphi-Quellcode:
procedure TForm1.B_StartClick(Sender: TObject);
var A, B, C, BB : boolean;
begin
// Listbox für die Ausgabe leeren (steht nicht in der Aufgabe, habe ich mal frei dazugesetzt)
Ausgabe_Listbox.Clear;
FOR A := false TO true DO
FOR B := false TO true DO
FOR C := false TO true DO
begin
BB :=
{Bedingung 1} ( (A AND C) OR (NOT A AND NOT C) ) AND
{Bedingung 2} ( (B OR C) OR (B AND C) ) AND
{Bedingung 3} ( (A OR B) OR (NOT A AND NOT B) );
// Ausgabe der Werte in der Listbox
Ausgabe_Listbox.Items.Add(
{Eingangswert A} BoolToStr( A, true ) + ' ' +
{Eingangswert B} BoolToStr( B, true ) + ' ' +
{Eingangswert C} BoolToStr( C, true ) + ' ' +
{Ausgangswert BB} BoolToStr( BB, true ) );
end;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)