Schiffe versenken programmieren

[DeddyH]

http://delphibasics.co.uk/RTL.asp?Name=Array

[Back2Code]

Zitat:

Zitat von p80286 (Beitrag 1249984)

Zitat:

Zitat von leodinho (Beitrag 1249940)

Natürlich weiß ich was ein array ist aber es fehlt mir am logischen denkvermögen, dies umzusetzen..

Delphi-Quellcode:

Spielfeld : array [1..12,1..12] of integer;

oder

Delphi-Quellcode:

Spielfeld : array [0..11,0..11] of integer;

(was Du für dicke Eier hälst ist Wissen)

Gruß
K-H

Array of String sollte bei Schiffe Versenken auch möglich sein.

[p80286]

Na klar, wahrscheinlich wäre ein Record sowieso besser, aber da es zunächst einmal um ein zweidimensionales Array ging und er Integer in seinem Beispiel genutzt hat .......

Mal schauen wie er es umsetzen will und dann kann man ja immer noch etwas konkretes sagen.

Gruß
K-H

[leodinho]

Ich habe jetzt mein statisches zweidimensionales array

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Zahlen : array of integer ;
  Feld : array [0..11, 0..11] of string;
begin
  setlength(zahlen, 12); //Zahlen : array (0...11) of Integer

dies würde doch jetzt schonmal so passen oder?

[DeddyH]

Du hast jetzt ein dynamisches Integer-Array und ein statisches String-Array mit 12 * 12 Feldern deklariert. Syntaktisch ist das OK, allerdings bin ich mir nicht sicher, ob das statische Array wirklich eine lokale Variable sein sollte. Andererseits kenne ich Deine angedachte Vorgehensweise auch nicht, von daher musst Du selbst entscheiden, ob das so richtig ist.

[leodinho]

Wie würde ich das mit einem statischen array nun machen?
Ich versteh bloß nicht, wie daraus dann später das feld generiert werden soll, da mir das logische denken irgendwie fehlt.

Wie würdest du es jetzt aus sicht eines anfänger mache? /:

[p80286]

Zitat:

Zitat von leodinho (Beitrag 1249997)

Ich versteh bloß nicht, wie daraus dann später das feld generiert werden soll,

Was verstehst Du unter Feld? Fußballfeld,Datenbankfeld,Spielfeld?
und wenn Du das Spielfeld meinst, das dargestellte oder das auf dem gerechnet und die Daten vorgehalten werden?

Gruß
K-H

[leodinho]

Naja das Spielfeld...
das statiche array wird dann global und nicht lokal..

[Sir Rufo]

Also du hast ein Spielfeld

Delphi-Quellcode:

Spielfeld : array[0..11,0..11] of integer;

und jedes Feld kann einen Wert annehmen, der den Status des Feldes darstellt.

Folgende Werte sind in dem Spiel möglich

Delphi-Quellcode:

const
  WATER = 0;
  NEARSHIP = 1; // Wird zum Positionieren der Schiffe benötigt
  SHIP = 2;

  HITVALUE = 10;

  HIT_WATER = WATER + HITVALUE;
  HIT_NEARSHIP = NEARSHIP + HITVALUE;
  HIT_SHIP = SHIP + HITVALUE;

Wenn du nun ein Schuss auf ein Feld abgeben willst, dann überprüfst du, ob der aktuelle Wert des Feldes kleiner als

Delphi-Quellcode:

HITVALUE

ist. Wenn dem so ist, dann addierst du zu dem aktuellen Feldwert einfach

Delphi-Quellcode:

HITVALUE

und der neue Wert ist gesetzt.

Delphi-Quellcode:

// Schuss auf 4,7
if Spielfeld[4,7] < HITVALUE then
  Spielfeld[4,7] := Spielfeld[4,7] + HITVALUE;

Wenn du das Spielfeld anzeigen willst, dann gibst du abhängig vom Wert eben das passende heraus (Zeichen, Bild, Farbe, whatever)

Delphi-Quellcode:

// Ausgabe des Spielfelds auf der Console
for y := 0 to 11 do
  for x := 0 to 11 do 
  begin
    case Spielfeld[x,y] of
      WATER : Write( ' ' );
      NEARSHIP : Write( '+' );
      SHIP : Write( '#' );
      HIT_WATER : Write( 'o' );
      HIT_NEARSHIP : Write( '*' );
      HIT_SHIP : Write( 'X' );
    end;
  end;
  WriteLn; // Neue Zeile
end;

[p80286]

In Deinem Array speicherst Du die Schiffe und Treffer und Wasser.. auf irgendeine weise kodiert, die Anzeige läuft dann im Prinzip so ab

Delphi-Quellcode:

for i:=1 to 12 do
  for j:=1 to 12 do
    Ausgabevon(Spielfeld[i,j]);

Wobei Ausgabevon die Zeichenroutine(n) enthält und auch die Interpretation der gespeicherten Daten (Schiff,Treffer,Wasser...)

Gruß
K-H

(wiede zu langsam)