Schiffe versenken programmieren

[Mavarik]

Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.

Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

OK... Wie mache ich aus einem Array ein Spielfeld...

Delphi-Quellcode:

Var
  Feld : Array ['A'..'B',1..2] of Integer;

Spielfeld;

AB
1..
2.o

Initialisierung:

Delphi-Quellcode:

begin
  Feld['A',1] := 0; // Wasser
  Feld['A',2] := 0; // Wasser
  Feld['B',1] := 0; // s.o.
  Feld['B',2] := 1; // U-Boot
end;

Schuss:

Gegeben sind 2 Edit Felder. 1x für die Spalte "A..B" ('L' in Deinem Fall) 1x für die Reihe

Delphi-Quellcode:

var
  Spalte : Shortstring; // eigentlich auch ein "Array" ;-)
  Reihe  : Integer;
begin
  Spalte := copy(Uppercase(trim(Edit1.Text)),1,1);
  Reihe  := Strtoint(trim(Edit2.Text));

  if Feld[Spalte[1],Reihe] = 0 then
    // Ausgabe "Wasser"
    else // Ausgabe "Treffer"
end;

Verstanden?

Mavarik

PS.: 120 Nachtrichten für so ein kleines Thema... Klingt langsam wie ein Wettbewerb... Wer Programmiert Schiffe-Versenken mit den wenigsten Zeilen Source-Code... Müssen nur noch die Rahmenbedingungen festlegen...

[p80286]

[OT]

Zitat von Mavarik:

Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

[Sir Rufo]

Zitat von p80286:

[OT]

Zitat von Mavarik:

Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

Wenn Bauer mit Badehose nicht schwimmen kann, dann sagt der Bauer "Liegt an der Badehose" und die Hose "Liegt am Bauern".
Das Wasser sagt "Mir doch egal wer Schuld ist"

[Mavarik]

Zitat von Sir Rufo:

Wenn Bauer mit Badehose nicht schwimmen kann, dann sagt der Bauer "Liegt an der Badehose" und die Hose "Liegt am Bauern".
Das Wasser sagt "Mir doch egal wer Schuld ist"

Du hast "was" vergessen...

[Mavarik]

Zitat von p80286:

[OT]

Zitat von Mavarik:

Mit schönem Gruß von uns alle an Deinen Informatik-Lehrer.
Er möge sich hier mal einloggen, damit wir Ihn mal so richtig durch den Wolf drehen können...

Und ich dachte immer zum Lernen gehören zwei, einer der lehrt und einer der lernt

Gruß
K-H
[/OT]

[OT]Ach Du bist sein Lehrer? ...

Hast natürlich recht, aber das ist doch auch die Aufgabe eines Lehrers den Stoff so zu vermitteln, dass der Schüler Ihn versteht. So eine Aufgabe "Programmier mal Schiffeversenken" kommt ja nicht von 0 auf 100.
Das Thema wurde doch sicherlich aufgebaut...
König Dodon und das Array of Boolean...usw.
[/OT]