Solitär - Schule!

[Phallic]

Hallo Leute,

ich muss für die Schule etwas in Delphi programmieren...und komme da nicht so richtig weiter.
Es ist ein kleines witziges Spiel, names Solitär! Also nicht das Windows Kartenspiel sondern, für die, die es nicht kennen, hier eine kleine Erklärung: Das Feld sieht so aus:

------O O O
------O O O
O O O O O O O
O O O O O O O
O O O O O O O
------O O O
------O O O


Das Feld in der Mitte ist ein freies Feld. In den anderen Löchern ist ein kleines Stöckchen. Jetzt muss man geschickt überlegen, wie man es schaffen kann, dass nur ein Stöckchen, und das in der Mitte, übrigbleibt. Man kann über Stöckchen springen, wenn nach dem Stöckchen ein leeres Feld ist. Dann nimmt man das Stöckchen aus dem Spiel!

Mein Ansatz:

Delphi-Quellcode:

.
.
.
var Form1: TForm1;
  z,zr,a,x1,x2,y1,y2,s : integer; 

procedure TForm1.Button1Click(Sender: TObject);
  begin
    zr:=10;
    a:=30;
    For z:=0 to 1 do
      begin
        For s:=0 to 2 do
          begin
            x1:=zr+2*(a+zr)+(a+zr)*s;
            y1:=zr+(a+zr)*z;
            image1.Canvas.Ellipse(x1,y1,x1+30,y1+30);
          end;
      end;
  end;

Das ist der Quellcode für den ersten Block, also für:

O O O
O O O

Jetzt weiß ich leider nicht wie ich die anderen mit den selben Variablen programmieren soll. Es sollen 3 Blöcke entstehen. Den, den ich grad aufgezeichnet habe, dann den länglichen:

O O O O O O O
O O O O O O O
O O O O O O O

und zu guter letzt, der hier:

O O O
O O O

Wenn ihr mir einen Ansatz geben könntet, wäre ich euch sehr dankbar. Und bitte achtet darauf, dass ich nicht gut Delphi kann, deswegen werde ich manche Begriffe nicht kennen!

[noch_ein_hannes]

... und jetzt erwartest Du dass wir Deine Hausaufgaben machen? :-)

Versuch doch mal nicht in verschiedenen Blöcken zu denken, sondern das Feld als Ganzes zu sehen, d.H. Du denkst Dir ein Rechteck mit den maximalen Ausmassen z:b: so:

Code:

- 0 1 2 3 4 5 6
0 - - X X X - -  
1 - - X X X - -  
2 X X X X X X X
3 X X X - X X X  
4 X X X X X X X  
5 - - X X X - -  
6 - - X X X - -

So hast Du quasi ein Koordinatensystem. Jeder Punkt erhält den Wert 1, wenn ein "Stäbchen" drinsteckt, und 0 wenn nicht. Die Felder am Rand erhalten bereits am Anfang ein -1, da dort kein Stab rein darf.

Zitat:

Und bitte achtet darauf, dass ich nicht gut Delphi kann, deswegen werde ich manche Begriffe nicht kennen!

Nach der Lösung dieser (Haus)Aufgabe kannst Du es bestimmt viel besser!

[malo]

Noch ein Tipp mit dem Koordinatensystem: Verwende dazu doch ein zweidimensionlaes Array of integer. Das kann man dann verwenden wie ein Koordinatensystem ;)


PS: Willkommen in der DP :firejump:

[Luckie]

Ich wäre geneigt ein Boolean Array zu nehmen: Stcökchen drin: TRue, leer False.

[malo]

Zitat:

Zitat von Luckie

Ich wäre geneigt ein Boolean Array zu nehmen: Stcökchen drin: TRue, leer False.

Dachte ich auch, aber was ist mit den Feldern, die nicht genutzt werden DÜRFEN (bzw. im Spiel eigentlich nicht existieren)?

Als die Eckpunkte des Quadrats.

[Luckie]

Man könnte ein zweites Array führen in dem die verbotenen Koordinaten drinne stehen.

[Ultimator]

Man könnte auch einen eigenen Aufzählungstypen verwenden, etwa "besetzt", "leer", "verboten" und dann ein 2D-Array of TEigenerAufzählungstyp.
Das fände ich am einfachsten ;-)

[Phallic]

leider habe ich von all dem gar nichts verstanden....Vielleicht habe ich es schlecht erklärt. Unser Lehrer will, dass wir einfach durch ändern der Farbe, das Spiel schaffen kann. Aber ich hänge immer noch beim Spielfeld...und das mit Koordinatensystem....häää???? Wie gesagt..ich kann kein Delphi und finde es sehr kompliziert...und unser Lehrer hat gesagt wir sollen in Blöcken denken..

[Luckie]

Warum sagt der dir, du sollst so was programmieren, wenn du kein Delphi kannst? :gruebel:

[Phallic]

Wenn es um Befehle geht, bringt er uns nichts bei, so ist das halt bei dem....ich bin schon stolz, dass ich das geschafft habe..aber die 2 Blöcke weiß ich einfach net, wie ich die unten dran setzen kann..