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