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