Das deutsche QBasic- und FreeBASIC-Forum

[Koala]

Schleifenproblem

Hallo !

Es geht um eine Abfrage von Feldern (1-24) auf einem Backgammonbrett -
das läuft nicht so wie geplant.

1) Ich will nur dann e = 1 setzen, wenn es exakt ein 5er Block ist, d.h. genau 5x hintereinander mindestens 2 Steine auf einem Feld sind, (5 Blocks in einer Reihe, ununterbrochen, nicht mehr, nicht weniger).
Mein Fehler liegt wohl in der Schleife, vermutlich 1020.

1000 FOR a = 20 TO 24
1010 IF g(a) > -1 THEN 1100
1015 FOR b = 1 TO a - 19
1020 c = 0: FOR d = a - b - 5 TO a - b
1030 IF g(d) > 1 THEN c = c + 1
1040 NEXT d
1050 IF c = 5 THEN 1120
1060 NEXT b
1100 NEXT a
1110 GOTO 1199
1120 e = 1
1199 RETURN

Das obige klappt nicht richtig - wie wird das ordentlich programmiert ?

Für den Gegner hatte ich sowas vorgesehen, hier vermutlich Zeile 2020 buggy:

2000 FOR a = 5 TO 1 STEP -1
2010 IF t(a) < 1 THEN 2100
2015 FOR b = 1 TO 6 - a
2020 c = 0: FOR d = a + b + 5 TO a + b STEP -1
2030 IF t(d) < -1 THEN c = c + 1
2040 NEXT d
2050 IF c = 5 THEN 2120
2060 NEXT b
2100 NEXT a
2110 GOTO 1199
2120 e = 1
2199 RETURN


2) Der Fehler hat mich auf eine Idee gebracht:
wie wär's mit einer neuen Variablen f, die 4 Blocks hintereinander
enthält, dann einen Punkt ohne Steine (auch keine des Gegners) und dann
kommt wieder ein eigener Block mit mindestens 2 Steinen vor dem 4er Block.

Wie lauten die korrekten Zeilen dafür ?

Hat jemand einen Vorschlag ?
Bin für jeden Tip dankbar !

Koala

[nemored]

Leider kann ich weitestgehend nur raten, was im Programm passieren soll: g(a) speichert die Anzahl der Steine auf dem a-ten Feld? g(a) < 0 bedeutet, dass dort nicht eigene, sondern gegnerische Steine liegen? Mit den Variablen a und b soll gespeichert werden, wo der höchste Fünferblock endet (a) und wo er beginnt (b)?

Unter obigen Annahmen würde ich es ehrlich gesagt ganz anders lösen:

• Laufe die Felder in einer Schleife von i = 24 bis 1 rückwärts durch.
  
• Wenn g(a) > 1 ("richtig besetztes" Feld gefunden), dann:
  Wenn c = 0 (noch keine aufeinanderfolgenden "richtig besetzten" Vorgänger) , setze a = i und c = 1; sonst setze c = c+1.
  
• Wenn g(a) < 2, setze c = 0 (Block unterbrochen).
  
• Wenn c = 5, beende die Schleife mit Erfolg.
  
• Wenn die Schleife ans Ende gerät, wurde kein Block gefunden.
  

[Koala]

Zunächst vielen Dank für deine Hilfe !

Ein paar Angaben mehr hätten sicher nicht geschadet, sorry.

Gleichwohl:
g(a) speichert die Anzahl der Steine auf dem a-ten Feld - richtig.
g(a) < 0 bedeutet, dass dort nicht eigene, sondern gegnerische Steine liegen - auch völlig richtig vermutet.

1000 FOR a = 20 TO 24
1010 IF g(a) > -1 THEN 1100
Hier soll zuerst geprüft werden, ob im Brettbereich 20-24 gegnerische Steine zu finden sind (ansonsten läuft der Block ja ins Leere, gibt's nix zu blocken).

Bemerke gerade, daß ich daran denken muß, daß der Gegner auch mindestens einen Stein auf der Bar haben könnte, also 1000 FOR a = 20 TO 25 (25 = Bar) - aber im Moment vernachlässigbar, spielt für die korrekte Erfassung einer 5er Brücke keine Rolle.

1015 FOR b = 1 TO a - 19
Markiert den Suchbereich, von hier startet dann die Suche nach dem 5er Block

1030 IF g(d) > 1 THEN c = c + 1
Setzt den Zähler für jeden gefundenen Block (Feld mit mindestens zwei eigenen Steinen) um 1 höher.

Das Problem liegt wohl in 1020 c = 0: FOR d = a - b - 5 TO a - b
das greift nicht richtig, erfasst nicht nur einen 5erBlock, wo die Blocks
direkt hintereinander liegen müssen (z.B. Punkte 17,18,19,20,21) - sondern auch die Fälle mit unterbrochener Brücke (z.B. 4er Block Punkte 17,18,19,20 und 22).
Letzteres sollte für den 5er Block ausgeschlossen sein - das leistet aber Zeile 1020 nicht.

Auch dürfen es nicht mehr als 5 Blocks nebeneinander sein - ein 6er Block ist eine noch stärkere Prime - also nur genau 5, dann:
1050 IF c = 5 THEN 1120
1120 e = 1

Das war der Plan.

Aber bei der Umsetzung hapert es wohl an Zeile 1020
1020 c = 0: FOR d = a - b - 5 TO a - b

Soweit meine Fehleranalyse.

Hoffentlich ist jetzt einiges klarer geworden.

Danke nochmals !

Koala

[SpionAtom]

Ich würde eine andere Technik verfolgen: Ich würde bei jedem Zug, die Anzahl der weißen und schwarzen Steine seperat mitzählen:

Ca. so: DIM weiss(24), schwarz(24)

Zu Beginn ist - wenn ich das richtig verstanden habe - zb weis(17) = 3.

Wenn weiß also einen Zug von Feld 17 auf 20 machst, dann müssen folgende Aktualisierungen vorgenommen werden:

weiss(17) = weiss(17) - 1
weis(20) = weiss(20) + 1


Überhaupt helfen sprechende Namen von Variablen dir und uns den Überblick zu behalten.
Da der 5er Block jetzt nicht allzu groß ist, kann man folgendes Konstrukt zum Überprüfen verwenden:

FOR i = 1 to 19
IF weiss(i) > 1 AND weiss(i + 1) > 1 AND weiss(i + 2) > 1 AND weiss(i + 3) > 1 and weiss(i + 4) > 1 THEN

'Ein Fünferblock wurde entdeckt von i bis (i + 4)
END IF
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[Koala]

[SpionAtom]

Prima, ich denke du hast mein Prinzip verstanden und du kannst je nach Badarf und Gutdünken anpassen. Eine Sache ist mir aufgefallen. Der erste Eintrag in deiner IF-Bedingung sollte nicht IF weiss(1) > 1 heißen, sondern weiss(i%) > 1, oder?

EDIT: 02:30 Uhr und ich bin noch wach, also Programmier-Kenntnisse hervorkramen!

Code kann man generell leserlicher und ordentlicher gestalten, wenn man sprechende Namen verwendet statt a, b, c. Oder wenn man verschachtelte Schleifen sparsam einsetzt, oder Programmteile in SUBs auslagert. Ebenso hilft es ausreichend Kommentare anzubringen und den Quelltext gut einzurücken. Ein Verzicht auf GOTO ist in den meisten Fällen auch sinnvoll.

Subs sind ein Thema für Fortgeschrittene mit ihren Parametern und Rückgabewerten, dennoch lohnenswert, gerade für ein Spieleprojekt.

Nun habe ich Lust mir nochmal die Backgammon-Regeln anzueignen und QBasic zu benutzen...
Sowohl Backgammon als auch QBasic liegen so weit zurück. Vielleicht Blitzbasic....
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[Koala]

[SpionAtom]

Nee Competition muss nicht sein

Ich glaube ich hab die Regeln auch noch nicht richtig gerafft. Habe mir zwei Videos angeschaut, und es leuchtet mir bei beiden nicht ein, warum man diese 5-er Blöcke identifizieren können sollte. Sind das erweiterte Regeln?
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[nemored]

Die einzige Bedeutung, die mir zum Fünferblock einfällt, ist, dass er schwer zu überspringen ist (nämlich nur, wenn dein Stein direkt vor dem Block steht oder landet und du zugleich noch eine 6 ziehen kannst). Aus Sicht des Gegenspielers wiederum sind die Felder dicht vor dem Block besonders gefährdet, Ein Sechserblock wäre dagegen gar nicht überspringbar und ein Viererblock zwar leichter als ein Fünferblock, aber immer noch recht schwer - daher kann ich dir die besondere Bedeutung des Fünferblocks auch nicht sagen. Vielleicht wird er gesucht, um sich Optionen zur Bildung eines Sechserblocks zu suchen, der ja dann wirklich eine Total-Blockade darstellt..
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[SpionAtom]

Das leuchtet mir ein. Für so eine taktische Anzeige/Analyse kann das Ermitteln der Blöcke hilfreich sein.
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[SpionAtom]

Für einen eigenen Projekt-Eintrag ist es noch zu Alpha, aber hier ein kleiner Heißmacher. Es funktioniert noch nichts.
Ich arbeite mit qb64, jedoch sollte es (bis auf das windowresize) auch in QBasic funktionieren. Da ich so lange nichts mit QB gemacht habe, und auch die Auflösung eine große Herausforderung für mich darstellt (screen 7, 320x200), komme ich nur sehr langsam voran.

[img]https://gdurl.com/INpA[/img]
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[Koala]

[SpionAtom]

Danke fürs Aufmerksam machen auf den Fehler.

Ich müsste mir jetzt im Bekanntenkreis mal jemanden suchen, der mit mir ein paar Runden spielt, um ein Gefühl dafür zu bekommen.
Ab Ende nächster Woche habe ich Urlaub, dann kommen hoffentlich die Fortschritte im Projekt.

Vielleicht bekomme ich in QB64 ja netzwerktechnisch was hin, sodass man online gegeneinander antreten kann. Aber zunächst ist erstmal nur Hot-Seat geplant. Und aus Nostalgiegründen bleibe ich jetzt bei QB und dem alten Screen Mode.

[Koala]

[Revilo]

Hallo Koala,
wir kennen uns bisher nicht. Durch einen Link von AtomSpion traf ich auf dich und möchte dir gern helfen, soweit ich es kann.

Vorab sollten wir uns über den Begriff "Block" verständigen.
Nach deiner Ansicht gilt eine Zacke als "Block", wenn sie komplett
mit 5 eigenen Steinen besetzt ist.

Um eine Zacke für den Gegner zu "sperren" reichen aber 2 eigene Steine auf ihr bereits aus, so besagen es die Spielregeln.

In meiner Auffassung ist ein "Block" eine Reihe von nebeneinander liegenden, durch mich blockierten Zacken, die für den Gegner nicht mehr erreichbar sind.

Dein Blockbegriff ist also vertikal, meiner hingegen horizontal.
Darüber müssen wir uns also erst mal einig werden, beides kann nicht gleichzeitig gelten.

Ich war noch nicht in der Lage, deine Darlegungen komplett nachzuvollziehen, aber mir ist aufgefallen, daß du nur von 24 Zacken,
also möglichen Zielpunkten sprichst.
In Wirklichkeit sind es aber 25.
Denn schließlich gibt es ja auch noch dir "Bar", auf der geschlagene Steine landen und von dort erst wieder eingespielt (ins Spielfelt wieder eingebracht) werden müssen.
Es sind eben 24 Zacken und die Bar, nicht nur 24 Zacken allein.

Kann es sein, daß du diesen Fakt übersehen hast? Das würde einiges
erklären.

Gruß Revilo

[Revilo]

Sorry, ich meinte SpionAtom.

[nemored]

Wenn man so will, gibt es sogar 26 Felder: Die 24 auf dem Brett, die Bar, aus der herausgewürfelt werden muss und die Bar, in die hineingewürfelt wird. Programmiertechnisch (und spieltechnisch) verhalten sich "die beiden Bars" sehr unterschiedlich und müssen getrennt voneinander behandelt werden. Allerdings verhalten sie sich auch deutlich anders als die 24 "echten" Felder (insbesondere können sie nicht blockiert werden), weshalb eine programmiertechnische Beschränkung auf die 24 Zacken durchaus sinnvoll sein kann. Für die geschlagenen Steine reicht ein Zähler, um festzustellen, ob noch Steine ins Spiel gebracht werden müssen. Für die ins Ziel gewürfelten Steine braucht man eigentlich gar nichts, denn die sind ja aus dem Spiel - ich würde sie wahrscheinlich aber ebenfalls zählen, um eine schnelle Überprüfung des Sieges zu ermöglichen.

Und wie ich im anderen Thread ebenfalls gerade schrieb: Ich glaube schon, dass Koala mit "Block" eine Reihe aufeinanderfolgender Zacken meint, denn nur so ergibt sein Code-Schnipsel Sinn.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Revilo]

Hallo nemored,
das habe ich nicht so ganz verstanden.
Du hast fachlich völlig Recht, die Bar kann nicht gesperrt werden.
Warum meinst du , daß 2 Bars nötig seien?
Eine zum "Schlagen" und eine zum "Wiedereinspielen".

Wenn ich einen Stein schlage, verschwindet er aus der jeweiligen Zacke und landet auf der Bar. Zacke ist der Start, Bar das Ziel.

Wenn ich einen Stein von der Bar wieder einspiele, ist die Bar der Start und der jeweilige "Einspielzacken" das Ziel, wo der Stein landen muß.

Weshalb benötige ich 2 Bars, wenn ich doch je nach Aktion (Schlagen bzw. Wiedereinspielen) nur Start und Ziel miteinander zu vertauschen brauche?


Gruß Revilo

[nemored]

Wenn ein Stein geschlagen wird, landet er auf der Bar und muss wieder eingespielt werden. Das ist "Bar 1".
Ziel des Spieles ist es, alle eigenen Steine aus dem Spiel hinauszuwürfeln. Das ist "Bar 2".
Wahrscheinlich ist für den zweiten Fall der Begriff nicht richtig gewählt; jedenfalls war es das, was ich meinte.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Koala]