Bedingungen mit Boolean und Listbox ausgeben

[himitsu]

Zitat von Perlsau:

Habt ihr denn nicht in der Schule gelernt, was eine Boolean-Variable ist? Offenbar nicht, denn sonst würdest du nicht versuchen, damit eine Schleife zu basteln.

Ein Boolean ist ein ordinaler Typ und nur ordinale Typen kann man in For-Schleifen verwenden.

[Der schöne Günther]

Ja, technisch geht das, aber potthässlich ist es trotzdem. Lass den armen nur einmal statt for variable := False to True einmal for variable := True to False schreiben und sich dann wundern warum nichts mehr geht.

Zitat von DeddyH:

Dann brauchst Du doch im Grunde nur noch eine Funktion

Nein, er braucht drei. Er hat ja drei verschiedene Bedingungen die nichts miteinander zu tun haben.

Er will sowas wie im Anhang in Listboxen packen.

[DeddyH]

Meine Güte, wenn die Dinger doch vorgegeben wurden...

[himitsu]

Zitat von Der schöne Günther:

Ja, technisch geht das, aber potthässlich ist es trotzdem. Lass den armen nur einmal statt for variable := False to True einmal for variable := True to False schreiben und sich dann wundern warum nichts mehr geht.

Dafür gibt es ja den Debugger

Es ist da wie bei den ENUMs, wo man dann ja auch DOWNTO verwendet.

Man muß nur aufpassen, wenn jemand nett war und das True umgeschrieben hat.
const True = Boolean(255); Aber das macht man ja nicht.



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

[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