Reversi-Probleme mit Funktionen

[tankm26]

so, pruefen und istspielfeld sind fertig

Die neue Aufgabe lautet: "spielende" und "umdrehen" zu programmieren.


Wieso funktioniert mein umdrehen eigentlich net?

[tankm26]

bin gerade dabei mein programm ein letztes mal zu überprügfen.

Hochladen tu ichs auch noch!

Danke an alle!

[Sidorion]

Ich würd mal eher so sagen: dx und dy sind jeweils entweder 1, 0 oder -1, wdann kannst du so vorgehen:

Delphi-Quellcode:

Procedure Prüfe(x,y,dx,dy: Integer): Integer;
Var
  lx,ly: Integer;
Begin
  lx:=x;
  ly:=y;
  Result:=0;
  While IsField(lx,ly)
  Do Begin
    ...Prüferei...
    Inc(lx,dx);
    Inc(ly,dy);
  End;
End;

so kannste alle Richtungen mit einem stück code erschlagen.

[tankm26]

du hast recht, so war es gedacht (und sogar schon von mir umgesetzt!)


hier ist mal die vorläufige endversion.

ein paar kleinigkeiten muss ich noch überprüfen

[tankm26]

Und das ist die fertige Version!