Fehler beim Einsatz von Schleife

[Hawkeye219]

Zitat von 3_of_8:

Kommt drauf an. In der Rechnerarchitektur wird es oft so gesehen, in der Aussagen- und Prädikatenlogik sind and und or gleich stark bindend. In Delphi übrigens auch, habs grade ausprobiert.

Ich verlasse mich darauf:

Zitat von Delphi-Hilfe:

Code:

Operator                             Rangfolge 
@, not                               Erste (höchste)
*, /, div, mod, and, shl, shr, as    Zweite
+, –, or, xor                        Dritte
=, <>, <, >, <=, >=, in, is          Vierte (niedrigste)

Ein Operator mit einer höheren Rangfolge wird vor einem Operator mit einer niedrigeren Rangfolge ausgewertet. Operatoren mit gleicher Rangfolge werden von links nach rechts ausgewertet.

Hier ist mein Testprogramm:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, c : Boolean;

begin
  WriteLn;
  WriteLn ('X = a or b and c');
  WriteLn ('Y = (a or b) and c');
  WriteLn ('Z = a or (b and c)');
  WriteLn;
  WriteLn ('abc  X Y Z');
  WriteLn ('----------');
  for a := False to True do
    for b := False to True do
      for c := False to True do
        WriteLn (Format('%d%d%d  %d %d %d', [Ord(a), Ord(b), Ord(c),
                                             Ord(a or b and c),
                                             Ord((a or b) and c),
                                             Ord(a or (b and c))]));
end.

Gruß Hawkeye

[DelphiProgrammierer]

Zitat von 3_of_8:

if (not ((i=x) and (j=y))) and (Feld[i,j]=1) then inc(k,1); Das lösen wir jetzt noch schön auf, nach den De-Morgan'schen Regeln:

if (i<>x) or (j<>y) and (Feld[i,j]=1) then inc(k,1);

Erstmal finde ich Deine Anmerkung prima.

Zweitens: Ich würde zusätzlich klammern bei Deiner Lösung, egal, wie die Bindungsregeln nun zufällig sind.

Drittens: Ich finde meine Lösung weiterhin anschaulicher.
Symbolisch lautet meine Lösung ja:
if (not Ausnahmefall) and (Feld[i,j]=1) then inc(k,1);
der Ausnahmefall wird aufgelöst als ((i=x) and (j=y))).

Bei Deiner Lösung muss man (ich jedenfalls) kurz nachdenken (letztlich versteckst Du das not in das <>).

[3_of_8]

Okay, Hawkeye, du hast offenbar Recht. Die Ausgabe meines Testprogramms hab ich offenbar falsch interpretiert. Außerdem bin ich es aus der Mathematik gewöhnt, dass die Konjunktion so stark bindet wie die Disjunktion, die Implikation und Äquivalenz weniger stark und die Negation am stärksten.