Zitat von
3rdnuss:
Hier nochmal die ganze Prozedur:
If (i<>x)and(j<>y)and(Feld[i,j] = 1) then inc(k,1);
Hi 3rdnuss,
der Fehler liegt in der if Bedingung. Damit schließt Du alle Fälle aus mit
Feld[x,irgendwas] und Feld[irgendwas,y] also z.B. Feld[x,y+1] usw.
schreibe stattdessen:
if (not ((i=x) and (j=y))) and (Feld[i,j]=1) then inc(k,1);
Gruß
Ulrich