Bedingungen mit Boolean und Listbox ausgeben

[DeddyH]

Zitat von himitsu:

PS: Ich würde nur eine Schleife verwenden und das dann mathematisch oder binär befüllen.

Ich würde das nehmen, was in der Aufgabe vorgegeben wurde. Es muss ja zumindest noch halbwegs verständlich sein, die Variablenbezeichner sind ja schon schlimm genug.

[himitsu]

OK, bei Hausaufgaben ist das ja immer etwas Anderes,
und mit einem guten Kommentar isses auch wieder verstänlich.

[Sir Rufo]

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;

[DeddyH]

*Öhm*...

Zitat:

Delphi-Quellcode:

  A := false;
  B := false;
  C := false;

Überflüssig, sind im Anschluss die Schleifenvariablen.

Zitat:

Delphi-Quellcode:

       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);

entspricht

Delphi-Quellcode:

       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);

es müsste aber wahrscheinlich heißen

Delphi-Quellcode:

       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));

Da deklariere ich mir lieber 3 Variablen, das ist übersichtlicher

[Sir Rufo]

Zitat von DeddyH:

*Öhm*...

Zitat:

Delphi-Quellcode:

  A := false;
  B := false;
  C := false;

Überflüssig, sind im Anschluss die Schleifenvariablen.

Zitat:

Delphi-Quellcode:

       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);

entspricht

Delphi-Quellcode:

       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);

es müsste aber wahrscheinlich heißen

Delphi-Quellcode:

       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));

Da deklariere ich mir lieber 3 Variablen, das ist übersichtlicher

Weiß gar nicht was du hast, steht doch alles so da

Insgesamt würde ich das schon vom Ansatz her anders umsetzen

• Berechnung und Darstellung trennen
• Weder das Eine noch das Andere im OnClick-Handler implementieren, sondern eine Methode aufrufen, die das erledigt
• Iteration über Boolean-Werte mit for BoolValue := Low(Boolean) to High(Boolean) do (nennt mich paranoid, aber mir doch egal in welcher Reihenfolge die definiert sind, Hauptsache ich kriege sie alle und ich muss mir keinen Kopf machen)

[DeddyH]

Ich würde das normalerweise ja auch "schöner" machen, aber da es sich um eine Schulaufgabe handelt, wollte ich keine didaktische Katastrophe abliefern

[Sir Rufo]

Zitat von DeddyH:

Ich würde das normalerweise ja auch "schöner" machen, aber da es sich um eine Schulaufgabe handelt, wollte ich keine didaktische Katastrophe abliefern

Der Kern der Aufgabe ist wohl auch nicht wartungsfreundlichen Code zu produzieren